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PREFACE 


The Altair BASIC lanquaqe is a high-level vrogramming 
language specifically desiaqned for interactive computing 
systems. Its simole Enalish-like instructions are easily 
understood and quickly learned and its interactive nature 
allows instant feedback of results and diagnostics. Despite 
its simplicity, however, Altair BASIC has evolved into a 
powerful language with mrovisions for editing and strinda 
processing as well as numerical computation. 


The Altair BASIC intervoreter reads the instructions of 

the BASIC language and directs the ALTAIR 8899 series 
microcomputer to execute them. Altair BASIC includes many 

useful diagnostic and editing features in all versions. The 

extended versions provide additional features including 

comprehensive file input/output orocedures in the disk 


version. 


This manual will explain the features of the BASIC 
langusqe and the special orovisions of the 4K, 8K, Extended 
and Disk Extended Altair BASIC interpreters, release 4,1. For 
quick reference, a table of Altair BASIC instructions, 
diagnostics and functions are ovrovided in Section 4. A 
complete index is at the end of the manual. 
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1. SOME INTRODUCTORY REMARKS 


~l Introduction to this Manual. 


a. Conventions. For the sake of simplicitv, some 
conventions will be followed in discussing the features of the 
Altair BASIC languaqe. 

1. Words printed in cavital letters must be written exactly 
as shown. These are mostly names of instructions and 
commands. ; 

2. Items enclosed in angle brackets (<>) must be supplied as 
explained in the text. Items in square brackets ([]) are 
optional. Items in both kinds of brackets, [<W>], for 
example, are to be supplied if the onvtional feature is used. 
Items followed by dots (...) may be reveated or deleted as 
necessary. 

3. Shift/ or Control/ followed by a. letter means the 
character is typed by holding down the Shift or Control key 
and typing the indicated letter. 

4, All indicated ounctuation must be supplied. 


b. Definitions. Some terms which will become important 
are as follows: 


Alphanumeric character: all letters and numerals taken 
together are called alohanumeric characters. 


Carriage Return: Refers both to the key on the terminal 
which causes the carriage, print head or cursor to move to the 
beginning of the next line and to the command that the 
carriage return key issues which terminates a BASIC line. 


Command Level: After Altair BASIC orints OK, it is in 
the command level. This means it is ready to accent commands. 


Commands and Statements: Instructions in Altair BASIC 
are loosely divided into two classes, Commands and Statements. 
Commands are instructions normally used only in direct mode 
(see Modes of Operation, section 1-2). Some commands, such as 
CONT, may only be used in direct mode since thev have no 
meaning as vrogram statements. Some commands, such as DELETE, 
are not normally used as program statements because they cause 
a return to command level. But most commands will find 
occasional use as program Statements. Statements are 
instructions that are normallv used in indirect mode. Some 
statements, such as DEF, may onlv be used in indirect mode. 


Edit: The vrocess of deleting, adding and substituting 
lines in a vrogram and that of vdreparing data for output 
according to a predetermined format will both be referred to 
as “editing.” The particular meaning in use will be clear from 
the context. 
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Integer Expression: An expression whose value is 
truncated to an integer. The components of the expression 
need not be of inteqer tynve. 


Reserved Words: Some words are reserved by BASIC for use 
as statements and commands. These are called reserved words 
and they may not be used in variable or function names. 


Svecial Characters: Some characters appear differently 
on different terminals. Some of the most important of these 
are the following: 


(carat) appears on some terminals as 4 (up-arrow) 
~ (tilde) does not appear on some terminals and orints 
as a blank 
(underline) aovears on some terminals as (back-arrow) 


String Literal: A string of characters enclosed by 
quotation marks (") which is to be input or output exactly as 
it appears. The quotation marks are not part of the string 
literal, nor may a string literal contain quotation marks. 
(““HI, THERE““is not legal.) 


Type: While the actual device used to enter information 
into the computer differs from system to system, this manual 
will use the word “type"“ to refer to the ovrocess of entry. 
The user types, the comvuter prints. Tyne also refers to the 
classifications of numbers and strings. The meaning will be 
Clear from the context. , 


1-2 Modes of Operation. 


Altair BASIC provides for operation of the computer in 
two different modes. In the direct mode, the statements or 
commands are executed as they are entered into the computer. 
Results of arithmetic and logical overations are disolayed and 
stored for later use, but the instructions themselves are lost 
after execution. This mode is useful for debugging and for 
using Altair BASIC in a “calculator” mode for quick 
computations which do not justify the design and codina of 
complete pcrograms. 


In the indirect mode, the comouter executes instructions 
from a vorogram stored in memory. Program lines are entered 
into memory if they are preceded by a line number. Execution 
.of the program is usually initiated by the RUN command. 
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1-3 Formats. 


a. Lines - AUTO and RENUM. The line is the fundamental 
unit of an. Altair BASIC program The format for ah Altair 
BASIC line is as follows: : 


mnnnn <BASIC statement>[:<BASIC statement>...] 


Each Altair BASIC line begins with a number. The number 
corresponds to the address of the line in memory and indicates 
the order in which the statements in the line will be executed 
in the program. It also provides for branching linkages and 
for editing. Line numbers must be in the range @ to 65529. A 
good programming practice is to use an increment of 5 or 19 
between successive line numbers to allow for insertions. 


1) Line numbers may be generated automatically .in the 
Extended and Disk versions of Altair BASIC by use of the AUTO 
and RENUM commands. The AUTO command provides for automatic 
insertion of line numbers when entering program lines. The 
format of the AUTO command is as follows: 


AUTO[<initial line>[,[<increment>] ] 
Examole; 

AUTO 199,19 

196 INPUT X,Y 

119 PRINT SOR(X~ 2+Y° 2) 

129 “C 

OK 


AUTO will number every input line until Control/c is typed. 
If the <initial line> is omitted, it is assumed to be 19 and 
an increment of 10 is assumed if <increment> is omitted. If 
the <initial line> is followed by a comma but no increment is 
specified, the increment last used in an AUTO statement is 
assumed. 


If AUTO generates a line number that already exists in 
the program currently in memory, it orints the number followed 
ov an asterisk. This is to warn the user that any inout will 
replace the existing line. 


2) The RENUM command allows program lines to be “spread 
out" so that a new line or lines may be inserted between 
existing lines. The format of the RENUM command is as 
follows: 


-RENUM [<NN>[,<MM>[,<II>J]] 


where NN is the new number of the first line to be 
resequenced. If omitted, NN is assumed to be 1G. Lines less 
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than MM will not be renumbered. If MM is omitted, the whole 
program will be resequenced. II is the increment between the 
lines to be resequenced. If II is omitted, it is assumed to 
be 19. Examples: 


RENUM _ Renumbers the whole program to start at line 18 
with an increment of 19 between the new line numbers. : 


RENUM 1906,,189 Renumbers the whole program to start 
at line 199 with an increment of 194. 


RENUM 6996,5090,1000 © Renumbers the lines from 5990 uv 
so they start at 6990 with an increment of 1290. 


NOTE 


RENUM cannot be used to change the order of program 
lines (for examole, RENUM 15,39 when the voroagram has 
three lines numbered 19, 20 and 3%) nor to create line 
numbers greater than 65529. An ILLEGAL FUNCTION CALL 
error will result. 


All line numbers appearing after a’ GOTO, GOSUB, THEN, 
ON...GOTO, ON...GOSUB and ERL<relational operator> will be 
properly changed by RENUM to reference the new line numbers. 
If a line number appears after one of the statements above but 
does not exist in the program, the message “UNDEFINED LINE 
XXXAX IN YYYYY" will be printed. This line reference (XXXXX) 
will not be changed by RENUM, but line number YYYYY may be 
changed. . : 


3) In the Extended and Disk versions, the current line 
number may be designated by a period (.) anvwhere a line 
number reference is required. This is particularly useful in 
the use of the EDIT command. See section 5-4, 


4) Following the line number, one or more BASIC 
statements are written. The first word of a statement 
identifies the operations to be performed. The. lyst of 
arguments which follows the identifying word serves sevaral 
curposes. It can contain (or refer symbolically to) the data 
which is to be operated unon by the statement. In some 
important instructions, the operation to be verformed depends 
upon conditions or options specified in the list. 


Each type of statement will be considered in detail in 
sections 2, 3 and 4. 
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More than one statement can be written on one line if 
they are separated by colons (:). Any number of statements 
can be joined this way provided that the line is no more’ than 
72 characters long in the 4K and 8K versions or 255 characters 
in the Extended and Disk versions. In the Extended and Disk 
versions, lines may be broken with the LINE FEED key. 
Example: 


166 IF X<Y+37<line feed> 
THEN 5 <line feed> 
ELSE PRINT(X)<carriage return> . 


The line is shown broken into three lines, but it is input as 
one BASIC line. 


b. REMarks. In many cases, a Drogram can be more easily 
understood if it contains remarks and explanations as well as 
the statements of the program voroper. In Altair BASIC, the 
REM statement allows such comments to be included without 
affecting execution of the program. The format of the REM 
statement is as follows: 


REM <remarks> 
A REM statement is not executed by BASIC, but branching 
statements may link into it. REM statements are terminated by 
the carriage return or the end of the line but not by a colon. 
Example: : 


1968 REM DO THIS LOOP:FOR I=1TO14¢ -the FOR statement 
will not be executed 

1@1 FOR I=1 TO 14: REM DO THIS LOOP -this FOR state- 
ment will be execu- 
ted. 


In Extended and Disk versions, remarks may be added to the end 
of a vorogram line separated from the rest of the line by a 
single quotation mark ('). Everything after the single quote 
will be ignored. 


c. Errors. When the BASIC interpreter detects an error 
that .will cause the ovrogram to be terminated, it prints an 
error message. The error message formats in Altair BASIC are 
as follows: 


Direct statement ?XX ERROR 
Indirect statement ?XX ERROR IN nnnnn 


XX is the error code or message (see section 6-5 for a list of 
error codes and messages) and nnnnn is the line number where 
the error occurred. Each statement has its own ovarticular 
possible errors in addition to the general errors in syntax. 
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These errors will be discussed in the description of the 
individual statements. 


1-4, Editing - Elementary provisions. 


Editing features are provided in Altair BASIC s0 that 
mistakes can be corrected and features can be added and 
deleted without affecting the remainder of the program. If 
necessary, the whole program may be deleted. Extended and 
Disk Altair BASIC have expanded editing facilities which will 
be discussed in section 5. 


a. © Correcting Single Characters. If an incorrect 
character is detected in a line as it is being tyoed, it can 
be corrected immediately with the backarrow ( , underline on 
some terminals) or ,except in 4K, the RUBOUT key. Each stroke 
of the key deletes the immediately receding character. Le 
there is no poreceding character, a carriage return is issued 
and a new line is bequn. Once the unwanted characters are 
removed, they can be revlaced simply by typing the rest of the 
line as desired. 


When RUBOUT is typed, a backslash (\) is printed and then 
the character to be deleted. Each successive RUBOUT vrints 
the next character to be deleted. Typing a new character 
prints another backslash and the new character. All 
characters between the backslashes are deleted. 


Examole: 


196 X=\=X\Y=16 Typing two RUBOUTS deleted the '=' 
and 'X' which were subsequently 
replaced by Y=. 


Db. Correcting Lines. A line being tyved may be deleted 
by typing an at-sign (@) instead of typing a carriage return. 
A carriage return is printed automatically after the line is 
deleted. Except in 4K, typing Control/U has the same effect. 


In the Extended and Disk versions, typing Control/A 
instead of the carriage return will allow all the features of 
the EDIT command (except the A command) to be used on the line 
currently being typed. See section 5-4. 


c. Correcting Whole Programs. The NEW command causes 
the entire current orogram and all variables to be deleted. 
NEW is generally used to clear memory space preparatory to 
entering a new crogram. 
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2. EXPRESSIONS AND STATEMENTS. 


2-1. Expressions. 


The simplest BASIC excressions are single constants, 
variables and function calls. 


a. Constants. Altair BASIC accepts integers or floating 
point real numbers as constants. All but the 4K version of 
Altair BASIC accept string constants as well. See section 
4-1. Some examples of acceotable numeric constants follow: 


123 
3.141 
9.8436 
1.258+85 


Data input from the terminal or numeric constants in a program 
may have any number of digits up to the length of a line (see 
section 1-3a). In 4K and 8K Altair BASIC, however, only the 
first 7 digits of a number are significant and the seventh 
digit is rounded up. Therefore, the command 


PRINT 1.234567890123 
produces the following output: 


1.23457 
OK 


In Extended and Disk versions of Altair BASIC, double 
precision format allows 17 significant digits with the 17th 
digit rounded up. 


The format of a printed number is determined by the 
following rules: 


1. If the number is negative, a minus sign (=) is printed to 
the left of the number. If the number is vositive, a 
space is printed. 


2. If the absolute value of the number is an integer in the 
range @ to 999999, it is printed as an integer. 


3. If the absolute value of the number is greater than or 


equal to .91 and less than or equal to 999999, it is 
printed in fixed point notation with no exponent. 


4, In Extended and Disk versions, fixed point values up to 
9999999999999999 are vossible. 
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5. If the number does not fall into CeEegeeaes 2, 3 or 4, 
scientific notation is used. 


The formats of scientific notation are as follows: 
- SX. XXXXXESTT single vorecision 
SX.XXXXXXXXXXXXXXXDSTT double vrecision 


where S stands for the signs of the mantissa and the exponent 
(they need not be the same, of course), X for the digits of 
the mantissa and T for the digits of the exvonent. E and »D 
may be read "“...times ten to the vower...." Non-significant 
zeros are suppressed in the mantissa, but two digits are 
always printed im the exponent. The sign convention in rule l 
is followed for the mantissa. The exponent must be in the 
range -38 to +38. The largest number that may be represented 
in Altair BASIC is 1.706141E38; the smallest nositive number 
is 2.93878-38. The following are examples of numbers as inout 
and as output by Altair BASIC: 


Number . Altair BASIC Output 
41 at 

cal =i 

6523 6523 

1LE2g 1LE29 
~12.34567E-19 ~1.23456E-99 
1.234567E-7 1.23457E-@7 
19489398 1E+96 

oe vl 

«81 -81 

- 899123 1.236-04 
-25.46G -25.46 


The Extended and Disk versions of Altair BASIC allow 
numbers to be represented in integer, single precision or 
double precision form. The tyve of a number constant is 
determined according to the following rules: 


1. A constant with more than 7 digits or a 'D' instead of '5' 
in the exponent is double precision. 


2. A constant outside the range -32768 to 32757, with 7 or 
fewer digits and a decimal voint or with an 'E' exponent 
is single precision. 


3. A constant in the range -32768 to 32767 and no decimal 
voint is integer. 
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4, A constant followed by an exclamation point (!) is single 
precision; a constant followed by a pound sign (#) is 
double precision. 


Two additional types of constants are allowed in Extended 
and Disk versions of Altair BASIC. Hexadecimal (base sixteen) 
constants may be explicitly designated by the symbol &H 
preceding the number. The constant may not contain any 
characters other than the digits @- 9 or letters A- F, or a 
SYNTAX ERROR will occur. Octal constants may be designated 
either by &0 or just the & sign. 


In all formats, a space is printed after the number. In 
all but the 4k version, Altair BASIC checks to see if the 
antire number will fit on the current line. If not, it issues 
a carriage return and prints the whole number on the next 
line. 


b. Variables. A variable represents symbolically any 
number which is assigned to it. The value of a variable may 
be assigned explicitly by the programmer or may be assigned as 
the result of calculations in a orogram. Before a variable is 
assigned a value, its value is assumed to be zero. In 4K , a 
variable name consists of one or two characters. The first 
character is any letter. The second character must be a 
numeral. In other versions of Altair BASIC, the variable name 
may be any length, but any alphanumeric characters after . the 
first two are ignored. The first character must be a letter. 
No reserved words may aprear as variable names or within 
variable names. The following are examples of legal and 
illegal Altair BASIC variables: 


Legal Illegal 
In 4K and 8K Altair BASIC: 
A $A (first character must 
be alvhabetic.) 
Z1 Z1A (variable name is too 


long for 4K) 
Other versions: 
TP TO (variable names cannot 
be reserved words) 


PSTGS 

COUNT RGOTO (variable names can- 
not contain reserved 
words.) 


In all but 4K Altair BASIC, a variable may also represent 
a string. Use of this feature is discussed in section 4. 
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1) Extended and Disk versions of Altair BASIC allow the 
use of Integer and Double Precision variables as well as 
Single Precision and Strings. The type of a variable may be 
explicitly declared in Extended and Disk versions of Altair 
BASIC by using one of the symbols in the table below as the 
last character of the variable name. 


Type Symbol 
Strings (@ to 255 characters) S 
Integers (-32768 to 32757) % 
Single Precision (up to 7 digits, exnonent between 
-338 and +38) ! 
Double Precision (up to 16 digits, exvonent between 
-38 and +38) # 


Internally, BASIC handles all numbers in binary. Therefore, 
some 8 digit single precision and 17 digit double vrecision 
numbers may be handled correctly. If no type is explicitly 
declared, type is determined by the first letter of the 
variable name according to the type table. The table of tynes 
may be modified with the following statements: . 


DEPINT xr Integer 
DEFSTR r String 
DEFSNG r Single Precision 
DEFDBL r Double Precision 


where r is a letter or ranqe of letters to be designated. 
Examples: 


15 DEFINT I-w Variable names beginning with the let- 
: ters I-N are to be of integer type. 
29 DEFDBL D Variable names beginning with D are to 
be of double crecision tyne. 


If no type definition statements are encountered, BASIC 
proceeds as if it had executed a DEFSNG A-2Z statement. 

2) Inteqer variables should be used wherever stossible 
Since they take the least amount of space in memory and 
integer arithmetic is much faster than single xrecision 
arithmetic. . 


Care must be exercised when single orecision and double 
precision numbers are mixed. Since single precision numbers 
can have more significant digits than will be ovrinted, a 
double precision variable set to a single precision value may 
-not orint the same as the single precision variable. 


19 A=1.G1 Single precision value 
20 B#=A*19:C#=CDBL(A) *1a4 convert to double precision 
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30 PRINTA;B#;C#;CDBL(A) in various ways 


In order to assure that double precision numbers will print 
the same as single ovorecision, the VAL and STRS functions 
should be used. For example: 


16 A=1.91 
26 B#=VAL(STRS (A)) :C#= Beto 
39 PRINT A;B#;C# 
RUN 
1.91 1.91 19.1 
OK 


c. Array Variables - The DIM Statement. It is often 
advantageous to refer to several variables by the same name. 
In matrix calculations, for example, the computer handles each 
element of the matrix separately, but it is convenient for the 
programmer to refer to the whole matrix as a unit. For this 
purpose, Altair BASIC ovrovides subscrinted variables, or 
arrays. The form of an array variable is as follows: 


VV (<subscript>[,<subscript>...]) 


where VV is a variable name and the subscriots are integer 
exoressions. Subscripts may be enclosed in parentheses or . 
Sguare brackets. An array variable may have only one 
dimension in 4K, but in all other versions of Altair BASIC it 
may have as many dimensions as will fit on a single line. The 
smallest subscript is zero. Examples: 


f 


A(5) The sixth element of array A. The first 
element is A(9%). 

ARRAY(I,2*J) The address of this element in a two- 
dimensional array is determined by 
evaluating the exoressions in parenthe- 
ses at the time of the reference to the 
array and truncating to integers. If 
I=3 and J=2.4, this refers to ARRAY(3,4). 


The DIM statement allocates storage for array variables and 
sets all array elements to zero. The form of the DIM 
statement is as follows: 


DIM VV(<subscript>[,<subscripnt>...]) 


where VV is a legal variable name. Subscript is an integer 
expression which specifies the largest voossible subscript for 
that dimension. Each DIM statement may acply | to more than one 
array variable. Some examples follow: 
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1.d1 10.10000038146973 19.89999999463257 1.9009999998463257 


LS DIM Al3)> DS (25252) 
_114 DIM R2%(4), B(19) 

115 DIM QL(N), 2#(2+I) Arrays may be dimensioned dy- 
namically durinad proaram 
execution, At the time the 
DIM is executed, the expression 
within the parentheses is e-. 
valuated and the results trun- 
cated to integer. 


If no DIM statement has been executed before an array variable 
is found in a vrogram, BASIC assumes the variable to have a 
maximum subscript of 14 (11 elements) for each dimension in 
the reference. A BS or SU8SCRIPT OUT OF RANGE error message 
will be issued if an attempt is made to reference an array 
element which is outside the space allocated in its associated 
DIM statement. This can occur when the wrong number of 
dimensions is used in an array element reference. For 
example: 


39 LET A(1,2,3)=X when A has been dimensioned by 
1g DIM A(2,2) 


A DD or REDIMENSIONED ARRAY error occurs when a DIM statement 
for an array is found after that array has been dimensioned. 
This often occurs when a DIM statement avpears after an array 
has been given its default dimension of 19. 


d. Operators and Precedence. Altair BASIC provides a 
full range of arithmetic and (exceot in 4K) logical operators. 
The order of execution of overations in an expression is 
always according to their vrecedence es shown in the table 
below. The order can be snecified explicitly bv the use of 
parentheses in the normal algebraic fashion. 


Table of Precedence 
Operators are shown here in decreasing order of ovrecedence. 
Overators listed in the same entry in the table have the same 
precedence and are executed in order from left to right in an 
expression. ; 
1. Expressions enclosed in varentheses () 
2s ~ exponentiation (not in 4K). Any number to the zero 
power is 1. - Zero to a negative power causes a /@ or 
DIVISION BY ZERO error. 


She ~ negation, the unary minus operator 
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“4, *,/ multiplication and division 


bo \ integer division (available in Extended and Disk 
versions, see section 5-2) 


6. MOD (available in Extended and Disk versions. See 
section 5-2) 


Ts +,- addition and subtraction 


8 relational operators 
= equal 
<> not equal 
< less than 
> greater than 
<=,=< less than or equal to 
>=,=> greater than or equal to 


(the logical operators below are not available in 4K) 


x NOT logical, bitwise negation 
1a. AND logical, bitwise disjunction 
ll. OR logical, bitwise conjunction 


(The logical operators below are available only in 
Extended and Disk versions.) 


12% XOR logical, bitwise exclusive OR 
13:4 EQV logical, bitwise equivalence 
14. IMP logical, bitwise implication 


In 4K Altair BASIC, relational operators may be used only once 
in an IF statement. In all other versions, relational 
overators may be used in any expressions. Relational 
expressions have the value either of True (-1) or False (@). 


e. Logical Operations. Logical operators may be used 
for bit manipulation and Boolean algebraic functions. The 
AND, OR, NOT, XOR, EQV and IMP operators convert their 
arguments into sixteen bit, signed, two's complement integers 
in the range -32768 to 32767. After the operations are 
performed, the result is returned in the same form and range. 
If the arguments are not in this range, an FC or ILLEGAL 
FUNCTION CALL error message will be printed and execution will 
be terminated. Truth tables for the logical operators apvear 
below. The overations are overformed bitwise, that is, 
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corresponding bits of 


result 


each argument are examined and the 


computed one bit at a time. In binary operations, bit 


7 is the most siagnificant bit of a byte and bit @ is the least 
significant. 


AND 


OR 


XOR 


EQV 


Some 
work: 
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Qarr dX 
QeaAKK 


QO KH E 9g Qe ox Ca Gh pst ee bd 
QrQrerd QraeK 
Q 


AaAkt Y ped 
Qed 


x 


RaQ heh p< 
aH ate ik 


IMP Y 


HH 


examples will serve to show how the logical overations 


63 AND 16=16 
5 AND 14=14 
-1 AND 8=8 

4 OR 2=6 


1@ OR 19=19 


63=binary 111111 and 16=binary 12999, 
so 63 AND 16=16 

15=binary 1111 and 14=binary 1119, 

so 15 AND 14=binary 1119=14. 

~l=binary 1111111111111111 and 8=binary 
198¢, so -1 AND 8=8. 

4=binary 199 and 2=binary 1%, so 

4 OR 2=binary 119=6. 

binary 19198 OR'd with itself is 1919= 


tie 


18 


* 19. 
~l1 OR -2=-1 


-l=binary ll111l11111111111. and -2= 
1111111111111118, so -1 OR -2=-1. 
NOT §=-1— the bit complement. of sixteen zeros 


is sixteen ones, which is the two's . 
complement representation of -l. 
NOT X=-(X+1) the two's comolement of any number is 
the bit complement plus one. 
testing a 
Such 
would 
Further 
the 


A typical use of logical operations is ‘masking’, 
binary number for some predetermined pattern of bits. 
numbers might come from the computer's input ports and 
then reflect the condition of some external device. 
applications of logical operations will be considered in 
discussion of the IF statement. 


The LET statement is 
The form is as follows: 


£. The LET statement. used to 


assign a value to a variable. 
LET <VV>=<expression> 


where VV is a variable name and the expression is any valid 
Altair BASIC arithmetic or, excent in 4K, logical or string 
expression. Examples: 


1988 LET V=X% 
11@ LET I=I+1l the 's' 


by ....' 


sign here means ‘is replaced 


The word LET in a LET statement is optional, so algebraic 


equations such as: 


128 V=.5* (X+2) 
are legal assignment statements. 


message is 


A SN or SYNTAX ERROR printed when BASIC 
detects incorrect form, illegal characters in a line, 
incorrect punctuation or missing parentheses. An OV or 


OVERFLOW error occurs when the result of a calculation is too 
large to be represented by Altair BASIC's number formats. All 
numbers must be within the ranae 1E-38 to 1.79141E38 or -1E-38 


to -1.70141E38. An attempt to divide by zero results in the 
/@ or DIVISION BY ZERO error message. 
For a discussion of strings, string variables and string 
operations, see section 4. 
BASIC 4.1 


April, 1977 


a. Branching. In addition to the sequential execution 
of program lines, BASIC vrovides for changing the order of 
execution. This orovision is called branching and is the 
basis of programmed decision making and loons. The statements 
in Altair BASIC which provide for branchina are the GOTO, 
IF...THEN and ON...GOTO statements. 

1) GOTO is an unconditional branch. Its form is as 
follows: 


GOTO<mnmmm> 


After the GOTO statement is executed, execution continues at 
line number mmmmm, ' 


2) IF...THEN is a conditional branch. Its form is ‘as 
follows: 


IF<expression>THEN<mmmmm> 


where the expression is a valid arithmetic, relational or, 
except in 4K, logical exoression and mmmmm is a line number. 
If the expression is evaluated as non-zero, BASIC continues at 
line mmmmm. Otherwise, execution resumes at the next line 
after the IF...THEN statement. 


An alternate form of the IF...THEN statement is as 
follows: 


IP<expression>THEN<statement> 
where the statement is any Altair BASIC statement. Examples: 


19 IF A=16 THEN 49 If the expression A=19 is 
true, BASIC branches to line 49. Otherwise, execution 
proceeds at the next line. 

15 IF A<8+C OR X THEN 199 The expression after IF is 
evaluated and if the value of the expression is 
nonzero, the statement branches to line 169. 
Otherwise, execution continues on the next line. 

26 IF X THEN 25 If X is not zero, the statement 
branches to line 25. 

39 IF X=Y THEN PRINT X If the expression X=Y is true 
(its value is non-zero), the PRINT statement is 
executed. Otherwise, the PRINT statement is not 
executed. In either case, execution continues with 
the line after the IF...THEN statement. 

35 IF X=¥+3 GOTO 39 Equivalent to the corresvonding 
IF...THEN statement, excent that GOTO must be followed 
by a line number and not by another statement. 


te 
Lve) 
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Extended and Disk versions of Altair BASIC provide an expanded 
IF...THEN statement of the form 


IF<expression>THEN<YY>ELSE<2Z2Z> 


where YY and 22 are valid line numbers or Altair BASIC 
statements. Examples: 


IF X>¥ THEN PRINT “GREATER” ELSE PRINT “NOT GREATER” 


If the expression X>Y is true, the statement after THEN is 
executed. Otherwise, the statement after ELSE is executed. 


IF X=2*Y THEN 5 ELSE PRINT “ERROR“ 


If the expression X=2*Y is true, BASIC branches to line 5. 
Otherwise, the PRINT statement is executed. Extended and Disk 
Altair BASIC allow a comma before THEN. 


IF statements may be nested in the Extended and Disk 
versions. Nesting is limited only by the length of the line. 
Thus, for examole: . 


IF X>Y¥ THEN PRINT “GREATER” ELSE IF y>X<line feed> 
THEN PRINT “LESS THAN" ELSE PRINT “EQUAL" 


and _ 


IF X=¥ THEN IF Y>Z THEN PRINT “X>Z" ELSE PRINT "Y<=Z" <line feed> 
ELSE PRINT "“X<>yY" 


are legal statements. If a line does not contain the same 
number of ELSE and THEN clauses, each ELSE is matched with the 
closest unmatched THEN. Example: 


IF A=8 THEN IF B=C THEN PRINT "A=C" ELSE PRINT “A<>C" 
will not orint "“A<>C" when A<>B. 


3) ON...GOTO (not in 4K) provides for another tvyve of 
conditional branch. Its form is as follows: 


ON<expression>GOTO<list of line numbers> 


After the value of the expression is truncated to an integer, 
say I, the statement causes BASIC to branch to the line whose 
number is Ith in the list. The statement may be followed by 
as many line numbers as will fit on one line. If I=9 or is 
greater than the number of lines in the list, execution will 
continue at the next line after the ON...GOTO statement. I 
must not be less than zero or greater than 255, or an FC or 
ILLEGAL FUNCTION CALL error will result. 
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b. Loops - FOR and NEXT. It is often desirable to 
perform the same calculations on different data or 
repetitively on the same data. For this ourvose, Altair BASIC 
provides the FOR and NEXT statements. The form of the FOR 
statement is as follows: 


FOR<variable>=<X>TO<Y> [STEP <Z>] 


where X,Y and Z are expressions. When the FOR statement is 
encountered for the first time, the expressions are evaluated. 
The variable is set to the value of xX which is called the 
initial value. BASIC then executes the statements which 
follow the FOR statement in the usual manner. When a NEXT 
statement is encountered, the step Z is added to the variable 
which is then tested against the final value Y. If 2, the 
step, is positive and the variable is less than or eaual to 
the final value, or if the step is negative and the variable 
is greater than or equal to the final value, then BASIC 
branches back to the statement immediately followina the FOR 
statement. Otherwise, execution oroceeds with the statement 
following the NEXT. If the step is not specified, it is 
assumed to be 1. Examples: 


19 FOR I=2 TO ll The loop is executed 19 times with 
the variable I taking on each in- 
tegral value from 2 to ll. 

28 FOR V=1 TO 9.3 This loop will execute 9 times un- 
til V is greater than 9.3 

36 FOR V=1G*N TO. 3472 STEP SOR(R) The initial, final 
and steo expressions need not be 
integral, but thev will be eval- 
uated only once before loop- 
ing begins. 

49 FOR V=9 TO 1 STEP -l1 This loop will be executed 9 
times. 


FOR...NEXT loops may be nested. That is, BASIC will execute a 
FOR...NEXT loop within the context of another loon. An 
examole of two nested looos follows: 


166 FOR I=1 TO 19 
120 FOR J=1 TO I 
139 PRINT A(I,d) 


14@ NEXT J 

158 NEXT I 
‘Line 138 will porint 1 element of A for I=l, 2 for I=2 and so 
on. Tf loops are nested, they must have different Loop 
variable names. The NEXT statement for the inside loop 


variable (J in the example) must avnear before that for the 
outside variable (I). Any number of levels of nesting is 
allowed uo to the limit of available memory. 
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The NEXT statement is of the form: 
NEXT [<variable>[,<variable>...]] 


where each variable is the loop variable of a FOR loop for 
which the NEXT statement is the end point. In the 4K version, 
the only form allowed is NEXT with one variable. In all other 
versions, NEXT without a variable will match the most recent 
FOR statement. In the case of nested loons which have the 
same end point, a single NEXT statement may be used for all of 
them, except in 4K. The first variable in the list must be 
that of the most recent loop, the second of the next most 
recent, and so on. If BASIC encounters a NEXT statement 
before its corresponding FOR statement has been executed, an 
NF or NEXT WITHOUT FOR error message is issued and execution 
is terminated. 


c. Subroutines - GOSUB and RETURN Statements. If the 
same . operation or series of onerations are to be verformed in 
several places in a program, storage space requirements and 
programming time will be minimized by the use of subroutines. 
A subroutine is a series of statements which are executed in 
the normal fashion upon being branched to by a GOSUB 
statement. Execution of the subroutine is terminated by the 
RETURN statement which branches back to the statement after 
the most recent GOSUB. The format of the GOSUB statement is 
as follows: 


GOSUB<line number> 


where the line number is that of the first line of the 
subroutine. A subroutine may be called from more than one 
place in a program, and a subroutine may contain a call to 
another subroutine. Such subroutine nesting is limited only 
by available memory. 


Except in the 4K version, subroutines may be branched to 
conditionally by use of the ON...GOSUB statement, whose form 
is as follows: 


ON <expression> GOSUB <list of line numbers> 


The execution is the same as ON...GOTO excent that the line 
numbers are those of the first lines of subroutines. 
Execution continues at the next statement after the ON...GOSUB 
upon return from one of the subroutines. 


d. Memory Limitations. While nesting in loops, 
subroutines and branching is not limited by BASIC, memory size 
limitations restrict the size and complexity of programs. The 
OM or OUT OF MEMORY error message is issued when a vroagram 
requires more memory than is available. See Appendix C for an 
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exDlanation of the amount of memory required to run programs. 
2-3. Input/Output 


a. INPUT. The INPUT statement causes data input to be 
requested from the terminal. The format of the INPUT 
statement is as follows: 


INPUT<list of variables> 


The effect of the INPUT statement is to cause the values typed 
on the terminal to be assigned to the variables in the list. 
When an INPUT statement is executed, a question mark (?) is 
printed on the terminal signalling a request for information. 
The operator types the required numbers or strings (or, in 4K, 
expressions) separated by commas and types a carriage return. 
If the data entered is invalid (strings were entered. when 
numbers were requested, etc.) BASIC prints ‘REDO FROM START?! 
and waits for the correct data to be entéred. If more data 
was requested by the INPUT statement than was typed, ?? is 
printed on the terminal and execution awaits the needed data. 
If more data was typed than was requested, the warning 'EXTRA 
IGNORED' is printed and execution proceeds. After all the 
requested data is input, execution continues normally at the 
statement following the INPUT. Except in 4K, an optional 
prompt string may be added to an INPUT statement. 


INPUT["“<prompt string>“;]<variable list> 


Execution of the statement causes the prompt string to be 
printed before the question mark. Then all overations vroceed 
as above. The prompt string must be enclosed in double 
quotation marks (") and must be separated from the variable 
list by a semicolon (;). Example: 


199 INPUT “WHAT'S THE VALUE";X,Y causes the following 
output: 


WHAT'S THE VALUE? 


The requested values of X and Y are tyved after the ? Exceot 
in 4K, a carriage return in response to an INPUT statement 
will cause execution to continue with the values of the 
variables in the variable list unchanged. In 4K, a SN error 
results. 


6. PRINT. The PRINT statement causes the terminal to 
Print data. The simplest PRINT statement is: 


PRINT 
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which’ prints a carriage return. The effect is to skio a iine. 
The more usual PRINT statement has the following form: 


PRINT<list of expressions> 


which causes the values of the expressions in the list to.. be 
printed. String literals may be printed if they are enclosed 
in quotation marks ("). 


The position of printing is determined by the punctuation 
used to separate the entries in the list. Altair BASIC 
divides the printing line into zones of 14 spaces each. A 
comma causes printing of the value of the next expression to 
pegin at the beginning of the next 14 column zone. A 
semicolon (;) causes the next printing to begin immediately _ 
after the last value printed. If a comma or semicolon 
terminates the list of expressions, the next PRINT statement 
begins printing on the same line according to the conditions 
above. Otherwise, a carriage return is printed. 


c. DATA, READ, RESTORE 


1) The DATA statement. Numerical or string data needed 
in a program may be written into the program statements 
themselves, input from peripheral devices or read from DATA 
statements. The format of the DATA statement is as follows: 


DATA<list> 


where the entries in the list are numerical or string 
constants separated by commas. In 4k, expressions may also 
appear in the list. The effect of the statement is to store 
the list of values in memory in coded form for access by the 
READ statement. Examples: 


19 DATA 1,2,-1E3,.G4 

28 DATA " £00", MITS Leading and trailing spaces in 
string values are suporessed unless the string is 
enclosed by double quotation marks. 


2) The READ statement. The data stored by DATA 
Statements is accessed by READ statements which have the 
following form: 


READK<list of variables> 


where the entries in the list are variable names separated by 
commas. The effect of the READ statement is to assign the 
values in the DATA lists to the corresponding variables in the 
READ statement list. This is done one by one from left to 
right until the READ list is exhausted. If there are more 
names in the READ list than values in the DATA lists, an OD or 


BASIC 4,1 


April, 1977 


OUT OF DATA error message is issued. If there are more values 
stored in DATA statements than are read by a READ statement, 
the next READ statement to be executed will begin with the 
next unread DATA list entry. A single READ statement may 
access more than one DATA statement, and more than one READ 
statement may access the data in a single DATA statement. 


An SN or SYNTAX ERROR message can result from an 
improperly formatted DATA list. In 4K Altair BASIC, the error 
message will refer to the READ statement which attempted to 
access the incorrect data. In other versions, the line number 
in the error message will refer to the actual line of the DATA 
statement in which the error occurred. 


3) The RESTORE statement. After the RESTORE statement is 
executed, the next piece of data accessed by a READ statement 
will be the first entry of the first eer list in the program. 
This allows re-READing the data. 


dad. CSAVE and CLOAD (8K cassette, Extended and Disk 
versions only). Numeric arrays may be saved on cassette or 
loaded from cassette using CSAVE* and CLOAD*. The formats. of 
the statements are: 


CSAVE*<array name> 
and 
CLOAD*<array name> 


The array is written out in binary with four octal 219 header 
bytes to indicate the start of data. These bytes are searched 
for when CLOADing the array. The number of bytes written is 
four plus: 


8*<number of elements> for a double vorecision arrav 
-4*<number of elements> for a single precision array 
2*<number of elements> for an integer array 


When an array is written out or read in, the elements of the 
array are written out with the leftmost subscript varying most 
quickly, the next leftmost second, etc: 


DIM A(18) 
CSAVE*A 


writes out A(9),A(1),...A(18) 


DIM A(19,19) 
CSAVE*A 
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writes out A(@,8), A(1,@)...A(19,%) ,A(10,1)...A(19,10) 


Using this fact, it is vossible to write a two dimensional 
array and read it back in as a single dimensional array, etc. 


NOTE 


Writing out a double precision array and reading it 
back in as a Single precision or integer array is not 
recommended. Useless values will undoubtedly be 
returned. 


e. Miscellaneous Input/Output 


1) WAIT (not in 4K). The status of input ports can be 
monitored by -.the WAIT command which has the following format: 


WAIT<I,d>[,<K>] 


where I is the number of the port being monitored and J and Kk 
are integer exvressions. The vort status is exclusive ORd 
with K and the result is ANDed with J. Execution is suspended 
until a non-zero value results. J picks the bits of port I to 
be tested and execution is suspended until those bits differ 
from the corresponding bits of K. Execution resumes at the 
next statement after the WAIT. If K is omitted, it is assumed 
to be zero. I, J and K must be in the range 9 to 255. 
Examples: 


WAIT 20,6 Execution stonos until either bit 1 or bit 
2 of port 29 are equal to l. (Bit @ is 
least significant bit, 7 is the most sig- 
nificant.) Execution resumes at the next 
statement. : 


WAIT 19,255,7 Execution stops until any of the most 
Significant 5 bits of cort 1@ are one or 
any of the least siqnificant 3 bits are 


Zero. Execution resumes at the next statement. 


2) POKE, PEEK (not in 4K). Data may be entered into 
memory in binary form with the POKE statement whose format is 
as follows: 


POKE <I,J> 
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where I and J are integer expressions. POKE stores the byte J 
into the location specified by the value of I. In 8k, I must 
be less than 32769. In Extended and Disk versions, I may be 
in the range g to 65535. J must be in the ranae @ to 255. In 
8K, data may be POKEd into memory above location 32768 by 
making I a negative number. In that case, I is computed by 
subtracting 65536 from the desired address. To POKE data into 
location 45900, for example, I is 45980-65536=-20536. Care 
must be taken not to POKE data into the storade area occuvied 
by Altair BASIC or the svstem may be POKEd to death, and BASIC 
will have to be loaded again. 


The complementary function to POKE is PEEK. The format 
for a PEEK call is as follows: 


PEEK (<I>) 


where I is an integer expression specifying the address from 
which a byte is read. I is chosen in the same way as in the 
POKE statement. The value returned is an integer between 4 
and 255. A major use of PEEK and POKE is to pass arguments 
and results to and from machine lanquage subroutines. 


3)O0UT, INP (not in 4K). The format of the OUT statement 
is as follows: 


OUT <I,J> 
where I and J are integer expressions. OUT sends the byte 
signified by J to output port I. I and J must be in the range 
§ to 255. 

The INP function is called as follows: 


INP (<I>) 


INP reads a byte from vort I where I is an integer expression 
in the range @ to 255. Example: 


29 IF INP(J)=16 THEN PRINT “ON" 
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3. FUNCTIONS. 


Altair BASIC allows functions to be referenced in 
Mathematical function notation. The format of a function call 
is as follows: he 


<name> (<argument>[,<argument>...]) 


where the name is that of a previously defined function and 
the arguments are one or more expressions separated by commas. 
Only one argument is allowed in 4K and 8K. Function calls may 
be components of expressions, so statements like 


19 LET T=(F*SIN(T))/P and 
286 C=SQR(A7~2+B” 2+2*A*B*COS (T) ) 


are legal. 


3-1. Intrinsic Functions 


Altair BASIC provides several frequently used functions which 
may be called from any program without further definition. A 
procedure is provided, however, whereby unneeded functions may 
be deleted to save memory space. See Appendix B. For a list 
of intrinsic functions, see section 6-3. 


3-2. User-Defined Functions =—- the DEF Statement (not in 4K). 


Se eiiilicemnsmmnenanndiiites meneame 


a. The DEF statement. The programmer may define 
functions which are not included in the list of intrinsic 
functions by means of the DEF statement. The form of the DEF 
statement is as follows: 


DEF<function name>(<variable list>)=<expression> 


where the function mame must be FN followed by a legal 
variable name and the entries in the variable list are ‘dummy' 
variable names. The dummy variables represent the argument 
variables or values in the function call. In 8K Altair BASIC, 
only one argument is allowed for a user-defined function, but 
in the Extended and Disk versions, any number of arguments is 
allowed. Any expression may appear on the right side of the 
equation, but it must be limited to one line. User-defined 
functions may be of any tyve in Extended and Disk versions, 
but user-defined string functions are not allowed in 8K. If a 
type is specified for the function, the value of the 
expression is forced to that type before it is returned to the 
calling statement. Examples: 
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19 DEF FNAVE(V,W) =(V+W) /2 

ll DEF FNCONS(VS$,WS) =RIGHTS (VS+US, 5) Returns the riqht 
most 5 characters of ‘the concat- 
enation of VS and WS. 

12 DEF FNRAD (DEG) =3. 14159/184*DEG When called with the 
measure of an angle in degrees, 
returns the radian equivalent. 


A function may be redefined by executing another DEF statement 
with the same name. A DEF statement must be executed before 
the function it defines may be called. 


b. USR. The USR function allows calls to assembly 
language subroutines. See appendix E. 


3-3. Errors. 

a. An FC or ILLEGAL FUNCTION CALL error results when an 
improper call is made to a function. Some places this might 
occur are the following: 

Te a negative array subscript. LET A(-1)=@, for example. 
2... an array subscript that is too large (>32767) 

ee negative or zero argument for LOG 

4, Negative argument for SOR 


By A°B with A negative and 8 not an integer 


6. a call to USR with no address patched for the machine 
language subroutine 


vy improper arguments to MIDS, LEFTS ,RIGHTS, INP, OUT, 
WAIT, PEEK, POKE, TAB, SPC, INSTR, STRINGS, SPACES or 
ON...GOTO. 


b. An attemot to call a user-defined function which has 
not previously appeared in a DEF statement will cause a UF or 
UNDEFINED USER FUNCTION error. 


c. A TM or TYPE MISMATCH error will occur if a function 
which expects a string argument is given a numeric value or 
vice-versa. 


BASIC 4.1 . 29 


April, 1977 


4. STRINGS 


In all Altair BASIC versions except 4K, expressions may 
either have numeric value or may be strings of characters. 
Altair BASIC provides a complete complement of statements and 
functions for manipulating string data. Many of the 
statements have already been discussed; so ,only their 
particular application to strings will be treated in this 
section. 


4-1. String Data. 


A string is a list of characters which may be from 9 to 
255 characters in length. Strings may be stated explicitly as 
constants or referred to symbolically by variables. String 
constants are delimited by quotation marks at the beqinning 
and end. A string variable name ends with a dollar sign (S$). 
Examples: - 


AS="ABCD"“ Sets the variable AS to the four character 
String “ABCD" 

B9S="14A/56" Sets the variable B9S to the six character 
string “14A/56" 

FOOFOOS="ES" Sets the variable FOOFOOS to the two charac~ 
fer string: "ES" 


Strings input to an INPUT statement need not be surrounded by 
quotation marks. 


String arrays may be dimensioned exactly as any other 
Kind of array by use of the DIM statement. Each element of a 
String array is a string which may be up to 255 characters 
long. The total number of string characters in use at any 
point in the execution of a program must not exceed the total 
allocation of string space, or an OS or OUT OF STRING SPACE 
error will result. String svace is allocated by the CLEAR 
command which is explained in section 6-2. 


4-2. Strina Operations. 


a. Comparison Overators. The comparison operators for 
strings are the same as those for numbers: 


= equal 

<> not equal 

< less than 

> Greater than 

=<,<= less than or equal to 
=>,>= greater than or equal to 


Comparison is made character by character on the basis of 
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ASCII codes until a difference is found. If, while comparison 
is proceeding, the end of one string is reached, the shorter 
string is considered to be smaller. ASCII codes may be found 
in Appendix A. Examples: 


A<Z ASCII A is 965, Z is 998 

1<A ASCII 1 is 949 

"A“>*A“ Leading and trailing blanks are significant 
in string literals. 


b. String Expressions. String expressions are comvosed 
of string literals, string variables and string function calls 
connected by the concatenation operator (+). The effect of 
the catenation operator is to add the string on the right side 
of the operator to the end of the string on the left. If the 
result of concatenation is a string more than 255 characters 
long, an LS or STRING TOO LONG error message will be issued 
and execution will be terminated. 


c. Input/Output. The same statements used for inout and 
output of normal numeric data may also be used for strina 
data. 


1) INPUT, PRINT. The INPUT and PRINT statements read and 
write strings on the terminal. Strings need not be enclosed 
in quotation marks, but if they are not, leading blanks will 
be ignored and the string will be terminated when the first 
comma or colon is encountered. Examples: 


18 INPUT Z00$,F0O0S Reads two strings 

29 INPUT XS Reads one string and assigns 
it to the variable xs. 

39 PRINT XS,“HI, THERE" Prints two strings, including 


all spaces and punctuation 
in the second. 


2) DATA, READ. DATA and READ statements for string data 
are the same as for numeric data. For format conventions, see 
the explanation of INPUT and PRINT above. 


4-3. String Functions. 


The format for intrinsic string function calls is the 
Same as that for numeric functions. For the list of string 
functions, see section 6-3. Svecial user-defined string 
functions are allowed in Extended and Disk versions and may be 
defined by the use of the DEF statement (see section 3-2). 
String function names must end with a dollar sign’ , 
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5. EXTENDED VERSIONS. 


The Extended and Disk versions of Altair BASIC vrovide 
several statements, operators, functions and commands which 
are not available either in the 4K or 8K versions. ~-Ffor 
Clarity, these features are grouped together in this section. 
Some modifications to existing 4K and 8K features, such as the 
IF...THEN...ELSE statement and number typing facilities, have 
been discussed in conjunction with the other versions. Check 
the index for references to those features. 


5-1. . Extended Statements 


a. ERASE. The ERASE statement eliminates arrays from a 
program and allows their space in memory to be used for other 
purposes. The format of the ERASE statement is as follows: 


ERASE<array variable list> 


where the entries in the list are valid array variable names 
sevarated by commas. ERASE will only operate on arravs and 
not array elements. If a name apovears in the list which is 
not used in the program, an ILLEGAL FUNCTION CALL error will 
occur. The arrays deleted in an ERASE statement may be 
dimensioned again, but the old values are lost. 

Example: 


19 DIM A(5,5) ete. 


6@ ERASE A 
79 DIM A(199) 


b. LINE INPUT. It is often desirable to inout a whole 
line to a string variable without use of quotation marks and 
other delimiters. LINE INPUT vrovides this facility. The 
format of the LINE INPUT statement is as follows: 


LINE INPUT [“<porompt string>"];<string variable name> 


The orompt string is a string literal that is printed on the 
terminal before inout is accepted. A question mark is not 
printed unless it is contained in the ovromot. strina. All 
‘input from the end of the orompt string to the carriage return 
is assiaqned to the string variable. A LINE INPUT may be 
escaped by tyoing Control/C. At that point, BASIC returns to 
command level and orints OK. Execution may be resumed at the 
LINE INPUT by typing CONT. LINE INPUT destroys the inout 
buffer, so the command may not be edited by Control/A for 
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re-execution. 


c. SWAP. The SWAP statement allows the values of two 
variables to be exchanged. The format is as follows: 


SWAP <variable,variable> 


The value of the second variable is assigned to the first 
variable and vice-versa. Either or both of the variables may 
be elements of arrays. If one or both of the variables are 
non-array variables which have not had values assigned to 
them, an ILLEGAL FUNCTION CALL error will result. Both 
variables must be of the same type or a TYPE MISMATCH error 
will result. Example: 


19 INPUT FS,LS 
26 SWAP FS,LS 
39 PRINT FS,LS 


RUN 
?FIRST,LAST Data input 
LAST FIRST Computer prints 


d. TRON, TROFF. As a debugging aid, two statements are 
provided to trace the execution of program instructions. When 
the trace flag is turned on by the TRON statement, the number 
of each line in the proaqram is printed as it is executed. . The 
numbers appear enclosed in square brackets ([{]). The function 
is disabled by execution of the TROFF statement. Example: 


TRON executed in direct mode 

OK printed by computer 

19 PRINT 1:PRINT “A“ typed by programmer 

28 STOP 

RUN 

[18] l line numbers and outout printed by 
A comouter. 


[29] 
BREAK IN 26 


The NEW command will also turn off the trace flag. 

@. IF...THEN...ELSE. See section 2-2. 

f£. DEFINT, DEFSNG, DEFDBL, DEFSTR. See section 2-1 

g. CONSOLE, WIDTH. CONSOLE allows the console terminal 
to be switched from one I/0 port to another. The format of 


the statement is: 


CONSOLE <I/O port number>,<switch register setting> 
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The <I/O port number> is the hardware port number of the low 
order (status) port of the new I/O board. This value must be 
a numeric expression between @ and 255 inclusive. If it is 
not in this range, an ILLEGAL FUNCTION CALL error will occur. 
The <switch register setting> is also a value between @ and 
255 inclusive which svecifies the type of I/O port (SIO, PIO, 
4PIO etc) being selected. Apvnpropriate values of the <switch 
register setting> may be found in Appendix B in the table of 


‘sense switch settings or in the table below. 


Table of values for <switch register setting>: 


I/O Board Sense Switch 
Setting 
2SIO with 2 stop bits a 
2SIO with 1 stovo bit 1 
SIo 2 
ACR 3 
4PIO 4 
PIO 5 
HSR 5 
non-standard terminal 14 
no terminal 15 


WIDTH Statement 


The WIDTH statement sets the width in characters of the 
printing terminal line. The format of the WIDTH statement is 
as follows: 


WIDTH <integer expression> 
Example: 


WIDTH 86 
WIDTH 32 


The <numeric formula> must have a value between 15 and 255 
inclusive, or an ILLEGAL FUNCTION CALL error will occur. 


h. Error Trapping. Extended and Disk Altair BASIC make 
it possible for the user to write error detection and handling 
routines which can attemot to recover from errors or ovrovide 
more complete exvlanation of the cause of errors than the 
Simple error messages. This facility has been added to Altair 
BASIC through the use of the ON ERROR GOTO, RESUME and ERROR 
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statements and with the ERR and ERL variables. 


1) Enabling Error Trapping. The ON ERROR GOTO statement 
specifies the line of the Altair BASIC crogqram on which the 
error handling subroutine starts. The format is as follows: 


ON ERROR GOTO <line number> 


The ON ERROR GOTO statement should be executed before the user 
expects any errors to cccur. Once an ON ERROR GOTO statement 
has been executed, all errors detected will cause BASIC to 
start execution of the svecified error handling routine. If 
the <line number> specified in the ON ERROR GOTO statement 
does not exist, an UNDEFINED LINE error will occur. 


Example: 


18 ON ERROR GOTO 19409 


2) Disabling the Error Routine. ON ERROR GOTO 9 disables 
trapping of errors so any subsequent error will cause BASIC to 
print an error messaqe and ston program execution. If an 
ON ERROR GOTO @ statement appears in an error trapving 
Subroutine, it will cause BASIC to ston and owrint the error 
message which caused the trap. It is recommended that all 
error trapping subroutines execute an ON ERROR GOTO Jg 
Subroutine if an error is encountered for which they have no 
recovery action. 


NOTE 


If an error occurs during the execution of an error 
trap routine, the system error message will be printed 
and execution will be terminated. Error trapping does 
not trap errors within the error trav routine. 


3) The ERR and ERL Variables. When the error handling 
Subroutine is entered, the variable ERR contains the error 
code for the error. The error codes and their meanings are 
listed below. See section 6-5 for a detailed discussion of 
each of the errors and error messages. 


Code Error 
Sp yt : 
1 NEXT WITHOUT FOR 
2 SYNTAX ERROR 
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3 RETURN WITHOUT GOSUB 

4 OUT OF DATA 

5 ILLEGAL FUNCTION CALL 
6 OVERFLOW 

7 OUT OF MEMORY 

8 UNDEFINED LINE 

) SUBSCRIPT OUT OF RANGE 
18 REDIMENSIONED ARRAY 


ll DIVISION BY ZERO 

2 ILLEGAL DIRECT 

13 TYPE MISMATCH 

14 OUT OF STRING SPACE 

pee) STRING TOO LONG 

16 STRING FORMULA TOO COMPLEX 
aa | CAN'T CONTINUE 

18 UNDEFINED USER FUNCTION 
19 NO RESUME 

29 MISSING OPERAND 

21 RESUME WITHOUT EPROR 

22 UNPRINTABLE ERROR 

23 LINE BUFFER OVERFLOW 


Disk Errors 


59 FIELD OVERFLOW 

sd INTERNAL ERROR 

52 BAD FILE NUMBER 

53 FILE NOT FOUND 

54 BAD FILE MODE 

he FILE ALREADY OPEN 

56 DISK NOT MOUNTED 

57 DISK I/O ERROR 

58 . FILE ALREADY EXISTS 

59 SET TO NON-DISK STRING 
69 DISK ALREADY MOUNTED 
61 DISK FULL 

62 INPUT PAST END 

63 BAD RECORD NUMBER 

64 BAD FILE NAME 

65 MODE-MISMATCH 

66 DIRECT STATEMENT. IN FILE 
67 TOO MANY FILES 

68 OUT OF RANDOM BLOCKS 


The ERL variable contains the line number of the line 
where the error was detected. For instance, if the error 
occured in line 1990, ERL will be equal to 14804. If the 
statement which caused the error was a direct mode statement, 
ERL will be equal to 65535 decimal. To test if an error 
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occurred in a direct geavenent, use 
IF 65535=ERL THEN ... 

In all other cases, use 
IF ERL=<line number> THEN... 


If the line number is on the left of the equation, it cannot 
be renumbered by RENUM (see section l-la). 


4) Disk Error Values - The ERR function. The ERR 
function returns the parameters of a DISK I/O ERROR. ERR(@) 
returns the number of the disk, ERR(1) returns the track 
number (@-76) and ERR(2) returns the sector number (9-31). 
ERR(3) and ERR(4) contain the low and high order bytes, 
respectively, of the cumulative error count since BASIC was 
loaded. ae 8 


NOTE 


Neither ERL nor ERR may apvear to the left of the = 
sign in a LET or assianment statement. 


5) The RESUME statement. The RESUME statement is used to 
continue execution of the BASIC program after the error 
recovery procedure has been performed. The user has three 
options. The user may RESUME execution at the statement that 
caused the error, at the statement after the one that caused 
the error or at some other line. To RESUME execution at the 
statement which caused the error, the user should use: 


RESUME 
or 
RESUME 9 


To RESUME execution at the statement immediately after the one 
which caused the error, the user should use: 


RESUME NEXT 


TO RESUME execution at a line dfferent than the one where the 
error occurred, use: 
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RESUME <line number> 
Where <line number> is not equal to zero. 


6) Error Routine Examole. The following example shows 
how a simple error trapping subroutine operates. a 


188 ON ERROR GOTO 599 

208 INPUT "WHAT ARE THE NUMBERS TO DIVIDE";X,Y 
219 Z=X/Y 

229 PRINT "QUOTIENT IS";2 

238 GOTO 2089 

500 IF ERR=1l AND ERL=219 THEN 529 

519 ON ERROR GOTO @ 

529 PRINT “YOU CANT HAVE A DIVISOR OF ZERO!" 
538 RESUME 206 


7) The ERROR statement. In order to force branching to 
an error trapping routine, an ERROR statement has been 
provided. The primary use of the ERROR statement is to allow 
the user to define his own error codes which can then 
conveniently be handled by a centralized error trap routine as 
described above. The format of the ERROR statement is: 


ERROR <integer expression> 


When defining error codes, values should be vicked which are 
greater than the ones used by Altair BASIC. Since more error 
messages may be added to Altair BASIC, user-defined error 
codes should be assigned the highest available numbers to 
assure future compatibility. If the <numeric expression> used 
in an ERROR statement is less than zero or areater than 255 
decimal, an ILLEGAL FUNCTION CALL error will occur. Of 
course, the ERROR statement may also be used to force SYNTAX 
or other standard Altair BASIC errors. Use of an ERROR 
statement to force printout of an error message for which no 
error text is defined will cause an UNPRINTABLE ERROR message 
to be printed out. 


5-2. Extended Overators. 


Two operators are provided that are exclusive to the 
Extended and Disk versions. 


a. Integer Division. Integer division, denoted by \ 
(backslash), forces its arguments to integer form and 
truncates the quotient to an integer. More precisely: 


A\B= FIX(INT(A) /INT(8) ) 
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Its precedence is just after multiplication and floating point 
divison. Integer division is approximately Stone times as 
fast as standard floating point division. 


b. Modulus Arithmetic - the MOD operator. A MOD B gives 
the ‘remainder’ as A is divided by B. More precisely: 


A MOD B=INT(A)-(INT(B) *(A\B)) 


If B=9, a DIVISION BY ZERO error cccurs. The orecedence of 
MOD is just below that of integer division. 


5-3. Extended Functions. 


a. Intrinsic Functions. Extended and Disk Altair BASIC 
orovide several intrinsic functions which are not available in 
the other versions. For a list of these functions and a 
description of their use, see section 6-3. © 


5. The DEFUSR statement. Up to ten assembly lanaquage 
subroutines may be defined by means of the DEFUSR statement 
whose form is. as follows: 


DEFUSR[<digit @ through 9>]=<integer expnression> 
Example: 


DEFUSR1=&190900 
DEFUSR2=31996 
DEFUSR9=ADR 


The <integer expression> is the starting address of the USR 
routine specified. When the USR subroutine is entered, the A 
reqister contains the type of the argument which was given to 
the USR function. This is also the length of the descriptor 
for that argument type: : 


Value in aA Meaning 

2 Two byte signed two's complement inteaer. 

‘re String. 

4 Single precision four byte floating point number. 
8 , Double precision floating point number. 


When the USR_  subroutine-.is entered, the [H,L] reaister pair 
contains a pointer to the floating voint accumulator (PAC). 
The [H,L] registers contain the address of FAC-3. 

If the value in the FAC is a single precision floating point 
number, it is stored as follows: 


FAC-3: Lowest 8 bits of mantissa. 
FAC-2: Middle 8 bits of mantissa. 
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FAC-1: Highest 7 bits of mantissa with hidden (implied) | 
leading one. Bit 7 is the sign of the number (@ 
positive, 1 negative). 


PAC: Exponent excess 29@ octal. If the contents of FAC is 248, 
the exponent is 9. If contents of FAC is 9,the number is 
Zero. a 


If the argument is double precision floating point, the FAC-7 
to FAC-4 contain four more bytes of mantissa, low order byte 
in FAC-7, etc. If the argument is an integer, FAC-3 contains 
the low order byte and FAC=2 contains the high order byte of 
the sianed two's complement value. If the argqument is a 
string, [D,E] points to a string descriptor of the araument, 
whose form is: 


Byte Use 
”) Length of string 9-255 decimal. 
1-2 Sixteen bit address pointer to first byte of 


strings text in memory (Caution - may point into 
program text if argument is a string literal). 


The string returned by a call to USR with a string argument is 
the string the user's routine sets up in the descriptor. 
Modifying [D,E] does not affect the returned string. For 
example, CS=USR(A$) results in CS and AS being set to the same 
string. The statement CS=USR(AS+" "“) avoids modifying A$ 
Since the user's routine modifies the descriptor of the 
temporary string AS+" ", : 


A string returned by the user's routine should. lie 
withing the storage area occupied by the argument string. 
Increasing the length of a string in a user's routine is 
guaranteed to cause trouble. 


Normally, the value returned by a USR function will be 
the same -type (integer, string, single or double precision 
floating point) as the argument which was ovassed to it. 
However, calling the MAKINT routine whose address is stored in 
location 6 will return the integer in [H,L] as the value of 
the function, forcing the value returned by the function to be 
integer. Execute the following sequence to return from the 
function: 


PUSH H ;SAVE VALUE TO BE RETURNED 
LHLD 6 ;GET ADDRESS OF MAKINT ROUTINE 
XTHL ;SAVE RETURN ON STACK & 
;GET BACK [4,1] 
RET ; RETURN 
a F 


The argument of the function may be forced to an integer, no 
matter what its tyve by calling the FRCINT routine whose 
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address is located in location 4 to get the inteqer value of 
the argument in [H,L]: 


LXI_. H,SUBL 7GET ADDRESS OF SUBROUTINE 
; CONTINUATION 

PUSH H ;PLACE ON STACK 

LHLD 4 7GET ADDRESS OF FRCINT 

PCHL ;CALL FRCINT 


SUBL: 2ew@eeese 


5-4. The EDIT Command. 


The EDIT command allows modifications and additions to be 
made to existing program lines without having to retype the 
entire line each time. Commands typed in the EDIT mode are, 
as a rule, not echoed. That is, they usually do not appear on 
the terminal screen or printout as they are typed. Most 
commands may be preceded by an optional numeric repetition 
factor which may be used to repeat the command a number of 
times. This repetition factor should be in the range 9 to 255° 
(9 is equivalent to 1). If the repetition factor is omitted, 
it is assumed to bel. In the following examples, a lower 
case “n" before the command stands for the revetition factor. 
In the following description of the EDIT commands, the 
“cursor“ refers to a pointer which is vositioned at a 
character in the line being edited. ' 


TO EDIT a line, tyoe EDIT followed by the number of the 
line and hit the carriage return. The line number of the line 
being EDITed will be printed followed by a space. The cursor 
will now be vositioned to the left of the first character in 
the line. 


* NOTE 


The best way of getting the “feel"“ of the EDIT command 
is to try EDITing a few lines yourself. 


If a command not recognized as an EDIT command is entered, the 
computer prints a bell (control/G) and the command is iaqnored. 


In the following examoles, the lines labelled “computer 
prints" show the apvearance of the line after each command. 


a. Moving the Cursor. Typing a space moves the cursor 
to the right and causes the character passed over to be 
printed. A number preceding the space (n<space>) will cause 
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the cursor to vass over and print out n characters. Typing a 
Rubout causes the immediatelv previous character to be printed 
effectively backspacing the cursor. 


b. Inserting Characters 


WARNINGS: 


Character insertion is stopped by tyving Escape 
(or Altmode on some terminals). Control/C will not 
interrupt the EDIT command while it is in Insert mode, 
but will be inserted into the edited line. Therefore, 
Control/c should not be used in the EDIT command. 


It is possible using EDIT to create a line which, 
when listed with its line number, is longer than 72 
characters. Punched vaper tapes containing such lines 
will not read properly. However, such lines may be 
CSAVEd and CLOADed without error. 


I Inserts new characters into the line being edited. 
Each character typed after the I is inserted at the 
Current cursor position and orinted on the terminal. 
Typing Escape (or Altmode on some terminals) stops 
character insertion. If an attempt is made to insert 
a character that will make the line longer than 255 
characters, a Control/G (bell) is sent to the terminal 
and the character is not orinted. 


A backarrow (or Rubout) typed during an insert command 
(or-) will delete the character to the left of the cursor. 
Characters up to the beginning of the line may be deleted in 


.this manner, and a backarrow will be echoed for each character 


deleted. However, if there are no characters to the left of 
the cursor, a bell is echoed instead of a backarrow. If a 
carriage return is tyoed during an insert command, it is as if 
an escape and then carriage return were typed. That is, all 
characters to the right of the cursor will be printed and the 
EDITed line will replace the original line. 


Xx X is similar to I, except that all characters to 


the right of the cursor are printed, and the cursor 
moves to the end of the line. At this point, it will 
automatically enter the insert mode ( see I command). 
X is most useful whén new statements are to be added 
to the end of an existing line. For example: 
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User types EDIT 59 (carriage return) 


Computer prints 5@ 

User types . x 

Computer prints 58 X=X+1 

User types :Y=Y+1 (CR) 
Computer prints 50 X=X+1:Y=Y+1 


In the above example, the original line #50 was: 
50 X=X+1 _ 
The new line #5@ now reads: 

56 X=X+1:Y=Y+1 


H is the same as X, except that all characters to 

the right of the cursor are deleted (they will not be 
printed). The insert mode (see I command) will then 
automatically be entered. H is most useful when the 
last statements on a line are to be replaced with new 
ones. 


Deleting Characters 


nD deletes n characters to the right of the cursor. 
If n is ommitted, it defaults to 1. If there are less 
than nm characters to the right of the cursor, 
characters will be deleted only to the end of - the 
line. The cursor is positioned to the right of the 
last character deleted. The characters deleted are 
enclosed in backslashes (\). For example: 


User types 29 X=X+1:REM JUST INCREMENT X 
User types > EDIT 29 (carriage return) 
Computer prints 208 

User types 6D (carriage return) 


Computer prints 29 \X=X+1:\REM JUST INCREMENT X 


The new line 28 will no longer contain the characters which 
are enclosed by the backslashes. : 
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a. 


Searching. 


The nSy command searches for the nth occurrence of 
the character y in the line. N defaults to 1. The 
search skips over the first character to the riaht of 
the cursor and begins with the second character to the 
right of the cursor. All characters passed over 
during the search are orinted. If the character is 
not found, the cursor will be at the end of the line. 
If it is found, the cursor will stop to the -right of 
the character and all of the characters to its left 
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will have been printed. For example: 


User types , 5@ REM INCREMENT X 


User types EDIT 58 
Computer prints 5H 
User types 2SE 
Computer prints 59 REM INCR 
K nKky is equivalent to S except that all of the char- 


acters passed over during the search are deleted. The 
deleted characters are enclosed in backslashes. For 


example: 
User types 10 TEST LINE 
User types EDIT 14 
Computer prints 18 
User tyves KL 
Computer prints 16 \TEST \ 


e. Text Replacement. 


C A character in a line may be changed by the use of 
the command Cy which changes the character to the 
right of the cursor to the character y. Y is vrinted 
on the terminal and the cursor is advanced one 
position. nCy may be used to change n characters ina 
line as they are typed in from the terminal. (See 
example below.) If an attemot is made to change a 
character which does not exist, the change mode will 
be exited. Example: ; 


User types 19 FOR I=1 TO 196 
User types © EDIT 19 

Computer prints 19 

User types 281 

Computer orints 18 FOR I=1 TO. 
User types 3C256 
Computer prints 1@ FOR I=l1 TO 256 


.£. Ending and Restarting 


Carriage Return Terminates editing and prints the re- 
mainder of the line. The edited line revlaces the 
original line. 


E E is the same as a carriage return except the 
remainder of the line is not printed. 


9 Q restores the original line and causes BASIC to 
return to command level. Changes do not take effect 
until an E or carriage return is tyved, so Q allows 
the user to restore the original line without any 
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changes which may have been made. 


L L causes the remainder of the line to be printed, 
and then prints the line number and restarts editing 
at the beginning of the line. The cursor will be 
positioned to the left of the first character in the 
line. L allows monitoring the effect of changes on a 
line. Example: 


User types © 5@ REM INCREMENT X 


User types EDIT 5@ 
Computer prints 59 
User types 25M 
Comouter prints 54 REM INCRE 
User types L 
Computer vorints 56 REM INCREMENT X 
58 
A A causes the original line to be restored 


and editing to be restarted at the beginning of the 
line. For example: . 


User types 18 TEST LINE 
User types EDIT 19 

Computer porints 19 

User types 14D 

Computer prints 19 \TEST LINE\ 
User types A 
Computer prints 19 \TEST LINE\ 
1g 


Suppose in the above example, that the user made a 
mistake when he deleted TEST LINE. As a result of the 
A command, the original line 19 is reentered and is 
ready for further editing. 


IMPORTANT 
Whenever a SYNTAX ERROR is discovered during the execution of 
‘a source vrogram , BASIC will automatically begin EDITina the 
line that caused the error as if an EDIT command had been 
typed. Example: 


19 APPLE 

RUN 

SYNTAX ERROR IN 19 
19 


Complete editing of a line causes the line edited to be 
reinserted. Reinserting a line causes all variable values to 
be deleted. To woreserve those values for examination, the 
EDIT command mode may be exited with the Q command after the 
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line number is printed. If this is done, BASIC will return to 
command level and all variable values will be preserved. 


The features of the EDIT command may be used on the line 
currently being typed. To do this, type Control/A instead of 
Carriage Return. The comouter will respond with a carriage 
return, an exclamation point (!) and a space. The cursor will 
be positioned at the first character of the line. At this 
point, any of the EDIT subcommands except Control/A may be 
used to correct the line. Example: 


User types 19 IF X GOTO #"/A 

Computer orints | ! 

User tyves S# 2C12 
Computer prints ! 19 IF X GOTO 12 


The current line number may be designated by a period (.) 
in any command requiring a line number. Examples: : 


User types 19 FOR I= 1 TO 14 
User types EDIT . 
Computer prints 19 


5-5. PRINT USING Statement. 


Se ered 


The PRINT USING statement can be employed in situations 
where a specific output format is desired. This situation 
might be encountered in such applications as printing payroll 
checks or accounting reports. The general format for the 
PRINT USING statement is as follows: 


PRINT USING <string>;<value list> 


The <string> may be a string variable , string expression or a 
String constant which is a precise copy of the line to be 
printed. All of the characters in the string will be orinted 
just as they appear with the exception of the formatting 
characters. The <value list> is a list of the items to be 
printed. The string will be repeatedly scanned until: 1) the 
string ends and there are no values in the value list or, 2) a 


field is scanned in the string, but the value list is 


exhausted. The string is constructed according to the 
following rules: ; 
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a. String Fields. 


! specifies a Single character string field. The string itself 


is specified in the value list. 

\n spaces\ specifies a string field consisting of 2+n char- 
acters. Backslashes with no ‘spaces between them 
indicates a field 2 characters wide, one space between 
them indicates a field 3 characters wide, etc. 


In both cases, if the string has more characters than the 
field width, the extra characters will be ignored. If the 
string has fewer characters than the field width, extra spaces 
will be printed to £111 out the entire field. Trying to orint 
a number in a string field will cause a TYPE MISMATCH error to 
occur. Example: 


19 AS="ABCDE":BS="FGH" 


29 PRINT USING "!“;AS;BS 
39 PRINT USING "\ \";BS;AS 
RUN 


(the above prints out) 


AF 
FGH ABCD 


Note that wnere the “!" was used only the first letter of each 
string was printed. Where the backslashes enclosed two 
spaces, four letters from each string were orinted (an extra 
space was orinted for BS which has only three characters). 


The extra characters in the first case and for AS in the 


second case were ignored. 


6. Numeric Fields. With the PRINT USING statement, 
numeric printouts may be altered to suit almost any 
application. Strings for formatting numeric fields are 
constructed from the following characters: 


# Numeric fields are specified by the # sian, each of 
which represents a digit position. These digit 
positions are always filled. The numeric field is 
right justified; that is, if the number printed is 
too small to fill all of the digit positions 
specified, leading spaces are printed as necessary to 
fill the entire field. 


The decimal point mav be svecified in any vosition 

in the field. Rounding is performed as necessary. If 
the field format specifies that a digit is to vorecede 
the decimal point, the digit is always printed (as 9 
if necessary). 


The following program will help illustrate these rules: 


** 


$$ 
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19 INPUT AS,A 
28 PRINT USING AS;A 
38 GOTO 198 


2 #te tH, 12 
12 
Pt. $H#,12 

12.96 

2? $##.,12 
Lies 

? $i. ett, 62 
8.62 

?t#.#,2.36 
2.4 

PHHH ,-12 

-12 

Pe. ##,-.12 

-.12 

Petes ,-12 
at 2 


The + sign may be used at either the beginning or: 
end of the numeric field. If the number is vositive, 
the + sign is printed at the specified end of the 
number. If the number is negative, a - sign is 
printed at the specified end of the number. 


The - sign, when used to the right of the numeric 
field desiaqnation, forces the minus sign to be printed 
to the right of the number if it is negative. If the 
number is vositive, a space is printed. 


The ** placed at the beginning of a numeric field 
designation causes any unused spaces in the leading 
portion of the number printed out to be filled with 
asterisks. The ** also svecifies pvositions for 2 more 
digits. (Termed “asterisk fill") 


When the SS is used at the beginning of a numeric 
field designation, a $ sign is orinted in the space 
immediately preceding the number printed. Note that 
$$ also specifies positions for two more digits, but 
that the $ itself takes up one of these spaces. 
Exvonential format cannot be used with leadina $§$ 
signs. 
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The **S$ used at the beginning of a numeric field 
designation causes both of the above (** and $$) ‘to be 
performed on the number being printed out. All of the 
orevious conditions apply, except that **$ allows. for 
3 additional digit positions, one of which is the $ 
sign. : < 


A comma appearing to the left of the decimal point 

in a numeric field desianation causes a comma to be 
printed to the left of every third digit to the left 
of the decimal point in the number being printed. The 
comma also specifies another digit position. A comma 
to the right of the decimal point in a numeric field 
designation is considered a part of the string itself 
and is treated as a printing character. 


(4444 on some terminals) Exponential Format. 

If exponential format is desired in the printout, the 
numeric field designation should be followed by 7~"77* 
(allows | space for E+XX). Any decimal point 
arrangement is allowed. The sianificant digits are 
left justified and the exponent is adjusted. Unless a 
leading + or a trailing + or - is used, one position 
to the left of the decimal point is used to orint a 
space or minus sian. Examples: 


PRINT USING "“[##777"]"%; 13,17,-8 
[ LE+91][ 2E+01] [-88+99] | 
OK 

PRINT USING “[.###84##7°7°"-]; 
[.12345GE+95 ][.1234568+96-] 
OK 

PRINT USING “[+.##777°7]"; 123,-126 
[+.12E+63] [-.13£+03] 

OK 


12345,~-123456 


If the number to be printed out is larger than the 
svecified numeric field, a $% character is printed 
followed by the number itself in standard Altair BASIC 
format. (The entire number is printed.) If rounding a 
number causes it to exceed the specified field, the % 
character is printed followed by the rounded number. 
If, for example, A=.999, then 


PRINT USING “.#3",A 
prints 
$1.90. 


If the number of digits specified exceeds 24, an 
ILLEGAL FUNCTION CALL error will occur. 


The following orogram will help illustrate the preceding 
rules. 5 


Program: 18 INPUT AS$,A 
29 PRINT USING AS;A 
3@ GOTO 19 
RUN 


The computer will start by typing a ?. The numeric field 
designator and value list are entered and the output is 
disvlayed as follows: 


? +.#47,.G2 

+.929 

? ##2%.%,106 
198.9 


- ? THIS IS A NUMBER ##,2 
THIS IS A NUMBER 2 
? BEFORE #% AFTER,12. 
BEFORE 12 AFTER 
? eae 44444 
44444 
2 **5e,1 
KK] 
2? **##,12 
**12 
? **##,123 
*123 
? **24,1234 
1234 
2 **#2,12345 
$12345 


2? **etee 1 


REEKEKT 
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(note: not floating $) ? S#Hte.##,12.34 


$ 12.34 : 
(note: floating $) 2? SS###4.##,12.56 
$12.56 
? $$.##,1.23 
$1.23 
? $$.##,12.34 
$12.34 
? S$S###,0.23 
$O 
2? SS##EH. HF, O 
$0.00 
? **Seee $251.23 
MARES 123 
2? **5.#2,1.23 
*$1.23 
? **S$4¢,1 
RREKST] 
? #,6.9 
5 
? #.#,6.99 
7.9 
? ##-,2 
2 
? Ft7 72 
2~- 
? F#+,2 
2+ 
? ttt ,—-2 
2- 
a. re 
2E+9¢ 
2 84777 7,12 
LE+¢1 
? RPSSE. RHE OTT, 2.45678 
2456.78GE-93 
2 Fee cy LS 
G@.123E+03 
2? #.#47°°7 7-123 
~, 12E+93 
2? “##Heee 242.4" 1234567.89 
1,234,570.06 


Typing Control/C will stop the program. 
5-6. Disk File Overations. 


As many as sixteen flopov disks may be connected to a 
Single ALTAIR disk controller. These disks have been assigned 
the physical disk numbers 9 through 15. Users with one drive 
should address the drive at zero, and users with two drives 
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should address them at zero and one, etc. 


In the following descrivtions, <disk number> is an 
integer expression whose value is the physical number of one 
of the disks in the system. If the <disk number> is omitted 
from a statement other than MOUNT or UNLOAD, the <disk number> 
defaults to 9. If the <disk number> is omitted from a MOUNT 
or UNLOAD statement, disks 9 through the highest disk number 
specified at initialization are affected. 


a. Opening, Closing and Naming Files. To initialize 
disks for reading and writing, the the MOUNT command is issued 
as follows: 


MOUNT [<disk number>[,<disk number>...]] 
Example: 

MOUNT 9 
mounts the disk on drive zero, and 

MOUNT 9,1 | 


mounts the disks on drives zero and one. If there is already 
a disk MOUNTed on the specified drive(s) a 
DISK ALREADY MOUNTED message will be printed. Before removing 
a disk which has been used for reading and writing by Disk 
Altair BASIC, the user should give an UNLOAD command: 


UNLOAD [<disk number>[,<disk number>...]] 


UNLOAD closes all the files open on a disk, and marks the disk 
as not mounted. Before any further I/O is done on an UNLOADed 
disk, a MOUNT command must be given. 


NOTE 


MOUNT, UNLOAD or anv other disk command may be used as 
a program statement. 


All data and program files on the disk have an associated file 
name. This name is the. result of evaluating a string 
expression and must be one to eight characters in lenath. The 
first character of the file name cannot be a null .(9) byte or 
a byte of 255 decimal. An attemot to use a null file name 
(zero characters in length) , a file name over 8 characters in 
length or containing a @ or 255 in the first character 
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position will cause a BAD FILE NAME error. Any other sequence 
of one to eight characters is acceptable. 


Examples of valid file names: 


ABC 

abc (Not the same as ABC) 
filename 

file.ext 

12345678 

INVNTORY 

FILE##22 


NOTE 
Commands that require a file name will use <file name> 
in the appropriate position. Remember that a <file 


name> can be any string expression as long as the 
resulting string follows the rules given above. 


b. The FILES Command. The FILES command is used to 
Print out the names of the files residing on a particular 
disk. The format of the PILES command is: 

FILES <disk number> 
Example: 

FILES (prints directory of files on disk 39) 

STRTRK PIP CURFIT CISASM 
Execution of the FILES command may be interrupted by typing 
Control/c. A more comolete listing of the information stored 


in a particular file may be obtained by running the PIP 
utility program (see Apvendix I). 


c. SAVEing and LOADing programs. Once a program has 
been written, it is often desirable to save it on a disk for 
use at a later time. This is accomplished by issuing a SAVE 
command: : 


SAVE <file name>[,<disk number>[,A]] 
Example: 


SAVE "TEST" ,@ 
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or 
SAVE “TEST" 
would save the program TEST on disk zero. Whenever a program 
is SAVEd, any existing copy of the program previously SAVEd 
will be deleted, and the disk space used by the previous 


program is made available. See section 5-6d for a discussion 
of saving with the 'A‘ option. 


The LOAD statement reads a file from disk and loads it 
into memory. The syntax of the LOAD statement is: 

LOAD <file name>[,<disk number>[,R]] 
Correspondingly: 

LOAD "TEST",@ or LOAD “TEST"™ 


loads the program TEST from disk zero. If the file does not 
exist, a FILE NOT FOUND error will occur. 


LOAD “TEST",9,R 
OK 


LOADS the orogram TEST from disk zero and runs it. The LOAD 


command with the “R" option may be used to chain or segment) 
-programs into small pieces if the whole program is too large 


to fit in the computer's memory. All variables and program 
lines are deleted by LOAD, but all data files are kept 
OPEN(see below) if the “R“ option is used. Therefore, 
information may be passed between programs through the use of 
disk data files. If the “R“ ovtion is not used, all files are 
automatically CLOSEd (see below) by a LOAD. 


Example: 


NEW 
19 PRINT “FOOL":LOAD “FOO2",9,R 
SAVE “FOOL",9 


OK 
19 PRINT “FOO2“:LOAD “FOO1",@,R 
SAVE “FOO2",@% 


OK 
RUN 
FOO2 
FOO] 
FOO2 
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FOOL] 
6 SORCS 


(Control/C may be used to stop execution at this point) 


In this examole, program FOO2 is RUN. FOO2 prints the 
message “FOO2" and then calls the voroqram FOO] on disk. FOOL 
prints “FOO1" and calls the program FOO2 which prints “FOO2" 
and so on indefinitely. 


RUN may also be used with a file name to load and run a 
program. The format of the command is as follows: 


RUN<file name>[,<disk number>[,R]] 


All files are closed unless ,R is specified after the disk 
number. 


d. SAVEing and LOADing Program Files in ASCII. Often it 
is desirable to save a program ina form that allows the 
program text to be read as data by another porogram, such as a 
text editor Or resequencing program. Unless otherwise 
specified, Altair BASIC saves its programs in a compressed 
binary format which takes a minimum of disk space and loads 
very quickly. To save @ program in ASCII, specify the "A" 
option on the SAVE command: 


SAVE "TEST" ,@,A 
OK 
LOAD “TEST",@ 


OK 


Information in. the file tells the LOAD command the format 
in which the file is to be loaded. The first character of an 
ASCII file is never 255, and a binary ovrogram file always 
Starts with 255 (377 octal). Remember, loading an ASCII file 
is much slower than loading a binarv file. 


e. The MERGE Command. Sometimes it is very useful to 
put parts of two programs together to form a new prodram 
combining elements of both programs. The MERGE command is 
provided for this purpose. As soon as the MERGE command has 
been executed, BASIC returns to command level. Therefore, it 
is more likely that MERGE would be used as a direct command 
than as a statement in a program. The format of the MERGE 
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statement is as follows: 
MERGE <file name>[,<disk number>] 
Example: 


MERGE “PRINTSUB",1 
OK 


The <file name> specified is merged into the program already 
in memory. The <file name> must svecify an ASCII format saved 
program or a BAD FILE MODE error will occur. If there are 
lines in the program on disk which have the same line numbers 
as lines in the program in memory, the lines from the file on 
disk will replace the corresvonding program lines in memory. 
It is as if the program lines of the file on disk were typed 
on the user terminal. 


_ £. Deleting Disk Files. The KILL statement deletes a 
file from disk and returns disk space used by the file to free 
disk space. The format of the KILL statement is as follows: 


KILL <file name>[,<disk number>] 
If the file does not exist, a FILE NOT FOUND error will occur. 
If a KILL statement is given for a file that is ie OPEN 
(see below), a FILE ALREADY OPEN error occurs. 


g. Renaming Files - the NAME Statement. The NAME 
statement is used to change the name of a file: 


NAME <old file name> AS <new file name>[,<disk number>] 

Example: 

NAME “OLDFILE” AS “NEWFILE" 
The <old file name> must exist, or a FILE NOT FOUND error will 
occur. A file with the same name as <new file name> must not 
exist or a FILE ALREADY EXISTS error will occur. After the 


NAME statement is executed, the file exists on the same disk 
in the same area of disk space. Onlv the name is changed. 


h. OPENing Data Files. Before a orogram can read or 


write data to a disk file, it must first OPEN the file on the 


appropriate disk in one of several modes. The general form of 
the OPEN statement is: 


OPEN <mode>,[#]<file number>,<file name>[,<disk number>] 
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<mode> is a string expression whose first character is one of 
the following: 


Specifies sequential output mode 
Specifies sequential input mode 
Specifies random Input/Output mode 


ArHo 


A sequential file is a stream of characters that is read or 
written in order much like INPUT and PRINT statements read 
from and write to the terminal. Random files are divided into 
grouns of 128 characters called records. The nth record of a 
file may be read or written at any time. Random files have 
other attributes that will be discussed later in more detail. 


<file number> is an integer expression between one and 
fifteen... The number is associated with the file being OPENed 
and is used to refer to the file in later I/O operations. 


Examples: 


OPEN “O",2,“OUTPUT",@ 

OPEN “I",1," INPUT” 
The above two statements oven the file OUTPUT for sequential 
output and the file INPUT for sequential input on disk zero. 
The following statement opens the file whose name is in the 
string FS in mode MS as file number N on disk D. 


OPEN MS,N,FS$,D 


1. Sequential ASCII file I/O Sequential input and output 
Files are the simplest form of disk input and output since 
they involve the use of the INPUT and PRINT statements with a 
file that has been previously OPENed. 


1) INPUT is used to read data from a disk file as 
follows: 


INPUT #<file number>,<variable list> 


where <file number> represents the number of the file that was 
OPENed for input and <variable list> is a list of the 
variables to be read, as in a normal INPUT statement. When 
data is read from a sequential input file using an INPUT 
statement, no question mark (?) is printed on the terminal. 
The format of data in the file should appear exactly as it 
would be typed to a standard INPUT statement to the terminal. 
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When reading numeric values, leading spaces, carriage returns 
and line feeds are ignored. When a non-space, non-carriage 
return, non-line-feed character is found, it is assumed to be 
part of a-enumber in Altair BASIC format. The number 
terminates on a space, a carriage return, line-feed or a 
comma. js 


Leading blanks, carriage returns and line-feeds are also 
ignored when scanning for string items. When a character 
which is not a leading blank, carriage return or line-feed is 
found, it is assumed to be the start of a strina item.If this 
first character is a quotation mark ("“), the item is taken as 
being a quoted string, and all characters between the first 
quotation mark (") and a matching quotation mark are returned 
as characters in the string value. This means that a quoted 
string in a file may contain any characters except double 
quote. If the first character of a string item is not a 
guotation mark, then it is assumed to be an unquoted = string 
constant.. The string returned will terminate on a comma, 
carriage return or line feed. The string is immediately 
terminated after 255 characters have been read. 


For both numeric and string items, if end of file (EOF) 
is reached when the item is being INPUT, the item is 
terminated regardless of whether or not a closing quote was 


seen. 


Sequential I/O commands destroy the input buffer so they 
may not be edited by Control/A for re-execution. 


Example of sequential I/O (numeric items): 


596 OPEN “O"“,1,“FILE",@ 
510 PRINT #1,X,Y,2 

529 CLOSE 1 

539 OPEN “I“,1,"FILE",@ 
548 INPUT #1",X,Y,2 


Note that CLOSE is used so that a file which has just been 
written may be read. When FILE is re-OPENed, the data pointer 
for that file is set back to the beqinning of the file so that 
the first INPUT on the file will read data from the start of 


tne file. 


2) PRINT and PRINT USING statements are used to write 
data into a sequential output file. Their formats are as 
£ollows: 


PRINT #<file number>,<expression list> 
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or 


PRINT #<file number>, <line feed> 
USING <string expression>;<expression list> 


Example of sequential I/O (quoted string items): 


506 OPEN "O",1,"FILE" 

519 PRINT #1 ;CHRS (34) ; XS ;CHRS (34); 

515 PRINT #1,CHRS (34) ;¥$S;CHRS$ (34); CHRS (34) 728; CHRS (34) 
529 CLOSE 1 

539 OPEN "“I“,1,"FILE"“,9 

549 INPUT #1,XS,Y$,25 


In this example, the strings being output (XS, YS, 2S) are 
Surrounded with double quotes throudh the use of the CHRS 
function to generate the ASCII value for a double quote. This 
technique must be used if a string which is being outnut to a 
sequential data file contains commas, carriage returns, 
line-feeds or leading blanks that are significant. When 
leading blanks are not significant and there are no commas, 
carriage returns or line-feeds in the strings to be output, it 
is sufficient to insert commas between the strings being 
output as in the following example: 


509 OPEN "0"“,1,"FILE" 

510 PRINT #1,XS3","sY¥S3","32Z$ 
529 CLOSE 1 

539 OPEN “I",1,'FILE",@ 

549 INPUT #1,X%$,Y$,2S$ 


3) CLOSE. The format of the CLOSE statement is as 
follows: 


CLOSE [<file number>[,<file number>...]] 


CLOSE is used to finish I/O to a varticular Altair BASIC data 
file. After CLOSE has been executed for a file, the file may. 
be reOPENed for inout or output on the same or different <file 
number>. A CLOSE for a seaquential output file writes the 
final buffer of output. A CLOSE to any OPEN file finishes the 
connection between the <file number> and the <file name> given 
in the OPEN for that file. It allows the <file number> to be 
used again in another OPEN statement. 


A CLOSE with no argument CLOSEs all OPEN files. 
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NOTE 


A FILE can be OPENed for sequential input oar random 
access on more than one <file number> at a time but 
may be OPEN for output on only one <file number> at a 
time. 


END and NEW always CLOSE all disk files automatically. STOP 
does not CLOSE disk files. 


4) LINE INPUT. It is often desirable to read a whole 
line of a file into a string without using guotes, commas or 
other characters as delimiters. This is especially true if 
certain fields of each line are being used to contain data 
items, or if a BASIC program saved in ASCII mode is being read 


as data by another orogram. The facility provided to verform 


this function is the LINE INPUT statement: 
LINE INPUT #<file number>,<string variable> 


A LINE INPUT from a data file will return all characters up to 
a carriage return in <string variable>. LINE INPUT then skips 
over the following carriage return/line-feed sequence so that 
a subsequent LINE INPUT from the file will return the next 
line. 


5) End of File (EOF) Detection. When reading a 
sequential data file with INPUT statements, it is usually 
desirable to detect when there is no more data in the disk 
file. The mechanism for detecting this condition is the EOF 
function: 


X=EOF (<file number>) 


EOF returns TRUE (-1) when there is no more data in the file 
and FALSE (@) otherwise. If an attempt is made to INPUT past 
the end of a data file, an INPUT PAST END error will occur. 


Example: 


190 OPEN "“I",1,"DATA",@ 
119 I= ; 
120 IF EOF(1) THEN 160 
130 INPUT #1,A(T) 

149 I=I+1 

15g GOTO 129 

LOG wsseee 


In this example, numeric data from the sequential input file 


DATA is read into the array A. When end of file is detected, 
the IF statement at line 128 branches to line 168, and the 
variable I “points” one beyond the last element of A that was 
INPUT from the file. 
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The following is a program that will calculate the number 
of lines in a BASIC program file that has been SAVEd in ASCII 
mode: 


19 INPUT "WHAT IS THE NAME OF THE PROGRAM";PS 
20 OPEN "I"“,1,P$,9 

39 I= 

49 IF EOF(1) THEN 79 

5@ I=I+1:LINE INPUT #1,L5 

68 GOTO 49 

70 PRINT “PROGRAM “;PS;" IS “;1I;" LINES LONG" 
88 END 


This example uses the LINE INPUT statement to read each line 
of the program into the “dummy" string LS which is used just 
to INPUT and ignore that part of the file. 


6) Finding the Amount of Free Disk Space (DSKF). It is 
sometimes necessary to determine the amount of free disk space 
remaining on a varticular disk before writing a file. The 
DSKF function provides the user with the number of free groups 
left on a given disk after the disk has been MOUNTed. A group 
is the fundamental unit of file allocation. That is, files 
are always allocated in groups of eight sectors at a time. 
Each sector contains 128 characters (bvtes). Therefore, the 
minimum size for a file is 19024 bytes. 


Syntax for the DSKF function: 
DSKF (<disk number>) 
Example: 


PRINT DSKF (@) 
296 


The above example shows that there are 208*1924=2943G9 
characters (bytes) that can still be stored on disk zero. 


j}. RANDOM FILE I/O. Previously, we have discussed how 
data may be PRINTed or INPUT from sequential data files. 
However, it is often desirable to access data in a random 
fashion, for instance, to retrieve information on a particular 
Dart number or customer from a large data base stored on a 
floppy disk. If sequential files were used, the whole file 
‘would have to be scanned from the start until the omarticular 
item was found. Random files remove this restriction and 
allow a program to access any record from the first to the 
last in a speedy fashion. Also, random files transfer data 
from variables to the disk ouput records and vice versa in a 
much faster, more efficient fashion than sequential files. 
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Random file I/O is more complex than sequential I/O, and it is 
recommended that beginners try sequential I/O first. 


1) OPENing a FILE for Random I/O. Random I/O files “are 
OPENed just like sequential files. 


OPEN "“R“,1,“RANDOM" ,@ 


When a file is OPENed for random I/O, it is always OPEN for 
both input and output simultaneously. 


2) CLOSING Random Files. Like sequential files, random 
files must be closed when I/O overations are finished. To 
CLOSE a random ELLE: use the CLOSE command as described 
previously. 


CLOSE <file number>[,<file number>...] 


3) Reading and writing data to a random file - GET and 
PUT. Each random file has associated with it a “random 
buffer" of 128 bytes. When a GET or PUT operation is 
performed, data is transferred directly from the buffer to the 
data file or from the data file to the buffer. 
The syntax of GET and PUT is as follows: 


PUT [#]<file number>[,<record number>] 
GET [#]<file number>[,<record number>] 


If <record number> is omitted from a GET or PUT statement, the 
record number that is one higher than the previous GET or pUT 
is read into the random buffer. Initiallv a GET or PUT 
without a record number will read or write the first record. 
The largest possible record number is 2046. If an attempt is 
made to GET a record which has never been PUT, all zeroes are 
read into the record, and no error occurs. 


4) LOC and LOF. LOC is used to determine what the 
current record number is for random files. In other words, it 
returns the record number that will be used if a GET or PUT is 
executed with the <record number> parameter omitted. 
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LOC (<file number>) 


PRINT LOC (1) 
15 


LOC is also valid for sequential files, and qives the number 
of sectors (128 byte blocks) read or written since the OPEN 
statement was executed. 


LOF is used to determine the last record number written to a 
random file: 


LOF(<file number>) 


PRINT LOF (2) 
289 , 


An attempt to use LOF on a sequential file will cause a BAD 
FILE MODE error. 


The value returned by LOF is always 5 MOD 8. That is , when 
the value LOF returns is divided by 8, the remainder is always 
5. Therefore,the values returned bv LOF are 5, 13, 21, 29 
etc. This is due to the way random files are allocated. 


NOTE 


It is important to note that the value returned by LOF 
may be a record that has never been written in by a 
user program. This is because of the way random files 
are pre-extended. 


3) Moving Data In and Out of the Random Buffer. So far 
we have described techniques for writing (PUT) and reading 
(GET) data from a file into its associated random buffer. Now 
we will describe how data from string variables is moved to 
and from the random buffer itself. This is accomplished 

- through the use of the FIELD, LSET and RSET statements. 


6) FIELD. The FIELD statement associates some or all of 
a file's random buffer with a particular string variable. 
Then, when the file buffer is read with GET or written with 
PUT, string variables which have been FIELDed into the buffer 
will automatically have their contents read or written. The 
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format of the FIELD statement is: 
PIELD [#] <file number>,<field size> AS <string variable>[...] 


<file mnumber> is used to specify the file number of the file 
whose random buffer is being referenced. If the file is not a 
random file, a BAD FILE MODE error will occur. <field size> 
sets the length of the string in the random buffer. <string 
variable> is the string variable which is associated with a 
certain number of characters (bytes) in the buffer. Multiple 
fields may be associated with string variables in a given 
FIELD statement. Each successive string variable is assiaqned 
a successive field in the random buffer. Examole: 


FIELD 19 AS AS, 28 AS BS, 38 AS CS 


The statement above would assign the first 19 characters of 
the random buffer to the string variable AS, the next 29 
characters to BS and the next 39 characters to the variable 
C$. It is important to note that the FIELD statement does not 
cause any data to be transferred to or from the random buffer. 
It only causes the string variables given as arguments to 
“point” into the random buffer. 


Often, it is necessary to divide the random buffer into a 
number of sub-records to make more efficient use of disk 
space. For instance, it might be desirable to divide the 128 
character record into two identical subrecords. To accomplish 
this a “dummy variable" would be placed in the FIELD statement 
to represent one of the subrecords. One of the following 
statements would be executed, devending on whether the first 
or second subrecord were needed: 


FIELD #1,64 AS DS, 28 AS NAMES, 
28 AS ADDRESSES, 24 AS OCCUPATIONS 


or 


FIELD #1,28 AS NAMES, 24 AS ADDRESSES, 
24 AS OCCUPATIONS, 64 AS DS 3 


where the dummy variable DS is used to skip over one of the 
subrecords. Another way to do the same thing would be to set 
a variable I that would select the first or second subrecord: 


FIELD #1,64*(I-1) AS DS, 
29 AS NAMES, 2@ AS ADDRESSS, 24 AS OCCUPATIONS 


Here, if the variable I is one, I-l *64 =9 characters will be 
skipped over, selecting the first subrecord. If I is two, 64 
characters will be skipoved over, selecting the second 
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subrecord. Another useful technique is to use a FOR...NEXT 
loop and an array to set ud subrecords in the random buffer: | 


1000 FOR I=1 TO 16 

1919 FIELD #1, (I-1)*8 AS DS, 4 AS AS(I), 
4 AS BS(TI) 

1920 NEXT I 


In this example, we have divided the random buffer into 16 
subrecords composed of two fields each. The first 4-character 
field is in AS$(X) X is the subrecord number. 


NOTE 


The FIELD statement may be executed any number of 
times on a given file. It does not cause any 
allocation of string space. The only svace allocation 
that occurs is for the string variables mentioned in 
the FIELD statement. These string variables have a 
one byte count and two byte vointer set up which 
points into the random buffer for the specified file. 


7) Using Numeric Values in Random Files: MKIS, MKSS, 
MKDS and CVI, CVS, CVD. - As we have seen, data is always 
stored in the random buffer through the use of string 
variables, In order to convert between strings and numbers 
and vice versa, a number of special functions have been 
provided. 


To convert between numbers and strinas: 


MKIS (<integer value>) Returns a two byte string 
(FC error if value is not 
>=—32768 and <=+32767. 
Fractional vart is lost) 

MKSS$ (<single precision value>) Returns a four byte string 

MKD$ (<double orecision value>) Returns an eight byte string 


To convert between strings and numbers: 


-CVI(<two byte string>) Returns an integer value 


CVS(<four byte string>) Returns a single precision value 
CvD(<eight byte string>) Returns a double porecision value 


CVI, CVS, and CVD all give an ILLEGAL FUNCTION CALL error if 
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the string given as the argument is shorter than required. If 
the string argument is longer than necessary, the extra 
characters are ignored. These functions are extremely fast 
since they. convert between Altair BASIC's internal 
representations of integers, single and double precision 
values and strings. Conventional sequential I/O must verform 
time-consuming character scanning algorithms when converting 
between numbers and strings. 


8) LSET and RSET. When a GET operation is performed, all 
string variables which have been FIELDed into the random 
buffer for that file automatically have values assigned to 
them. The CVI, CVS and CVD functions may be used to convert 
any numeric fields in the record to their numeric values. 
When going the other way, i.e. inserting strings into the 
random buffer before performing a PUT statement, a problem 
arises. This is because of the way string assignments usually 
take place. For example: 


LET AS=BS_ 


When a LET statement is executed, BS is copied into string 
space, AS is pointed to the new string and the string length 
of AS is modified. However, for assignments into the random 
buffers we do not want this to happen. Instead, we want the 
string being assigned to be stored where the string variable 
was FIELDed. In order to do this, two special assignment 
statements have been provided, LSET and RSET: , : 


LSET <string variable>=<string expression> 
RSET <string variable>=<string expression> 


Examples: 
LSET AS=MKSS (V) 
RSET BS="TEST" 
LSET CS (I) =MKDS (D#) 


The difference between LSET and RSET concerns what happens if 
the string value being assigned is shorter than the length 
sovecified for the string variable in the FIELD statement. 
LSET left justifies the string, adding blanks (octal 49, 
decimal 32) to pad out the right side of the string if it is 
too short. RSET right justifies the string, padding on the 
left. If the string value is too long, the extra characters 


at the end of the string are ignored. 
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NOTE 
Do not use LSET or RSET on string variables which have” 


not been mentioned in a FIELD statement, or a SET TO 
NON DISK STRING error will occur. 


Ke The DSKIS and DSKOS Primitives. Often it. is 
necessary for the user to perform disk I/O operations directly 
without using anv of the normal file structure features of 
Altair BASIC. To allow this, two special functions have been 
provided. These are the DSKIS function and the DSKOS 
Statement. First, examples will be vrovided on how to perform 
Simole disk I/O commands using Altair BASIC statements. 

To Enable disk 6: 

OUT 8,@ 

To Enable disk N: 

OUT 8,N 
TO step the disk head out one track: 

WAIT 8,2,2:0UT 9,2 
To step the disk head in one track: 

WAIT 8,2,2:0UT 9,1 
To test for track @: 

IF (INP(8) AND 64)=9 THEN <statements or line number> 
The above will execute the statements or branch to the line 


number if the head is positioned at track @. This is the 
outermost track on the disk. 


To read sector Y (Y may be any expression, minimum sector =G, 
‘maximum = 31): 

AS=DSKTIS$ (Y) 
The statement 


DSKOS <string expression>,<sector expression> 
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writes the string expression on the sector specified. The 
high order bit (most signifigant) of the first character 
output will always be set to one when the string is written on 
the sector and will always be one when the sector is read back 
in using DSKIS$. A maximum of 137 characters are written; 
giving a string whose length exceeds 137 characters will cause 
an ILLEGAL FUNCTION CALL error. If the string argument is 
less than 137 characters in length, the end of the string will 
be padded with zeros to make a string of length 137. 
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6. LISTS AND DIRECTORIES 


ant ee Commands. 


Commands direct Altair BASIC to arrange memory and 
input/output facilities, to list and edit programs and ‘to 
handle other housekeeping details in support of program 
execution. Altair BASIC accepts commands after it prints ‘OK’ 
and is at command level. The table below lists the commands 
in alphabetical order. The notation to the right of the 
command name indicates the versions to which it applies. 


Command Version(s) 

CLEAR | All 

Sets all program variables to zero. 

CLEAR[<expression>] 8K, Extended, Disk 

Same as CLEAR but sets string space to the value of the 
expression. If no argument is given, string space will remain 
unchanged. When Altair BASIC is loaded, string space is set 
to 5@ bytes in 8K and 209 bytes in Extended and Disk. 
CLOAD<string expression> - 8K (cassette), Extended, Disk 
Causes the program on cassette tape designated by the first 
character of STRING expression> to be loaded into memory. A 
NEW command is issued before the program is loaded. 


CLOAD*<array name> 8K (cassette), Disk 


Loads the specified array from cassette tape. May be used as 
a program statement. 


CLOAD?<string expression> 8K (cassette), Extended, Disk 


Compares the program in memory with the corresponding file on 
cassette tape. If the files are the same, CLOAD? prints OK. 
If not, it prints NO GOOD. The <string expression> must be 
given, but it is ignored. 


CONT 8K, Extended, Disk 
Continues program execution after a Control/C has been typed 


or a STOP or END statement has been executed. Execution 
resumes at the statement after the break occurred unless input 


from the terminal was interrupted. In that case, execution 
resumes with the reprinting of the prompt (? Or prompt 
String). CONT is useful in debugging, especially where an 
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‘infinite loop' is suspected. An infinite loop is a series of 
statements from which there is no escape. Typing Control/C 
causes a break in execution and puts BASIC in command level. 
Direct mode statements can then be used to print intermediate 
values, change the values of variables, etc. Execution can be 
restarted by typing the CONT command, or by executing a direct 
mode GOTO statement, which causes execution to resume at the 
specified line number. 


In 4K and 8K Altair BASIC, execution cannot be continued 
if a direct mode error has occured during the break. [In all 
versions, execution cannot continue if the program was 
modified during the break. 


CSAVE<string expression> 8K (cassette), Extended, Disk 
Causes the program currently in memory to be saved on cassette 


tape under the name specified by the first character of 
<string expression>. 


CSAVE*<array name> 8K (cassette), Disk 
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Causes the array named to be saved on cassette tape. May be 
used as a program statement. 


DELETE<line number> Extended, Disk 


Deletes the line in the current program with the specified 
number. ‘If no such line exists, an ILLEGAL FUNCTION CALL 
error occurs. 


DELETE-<line number> Extended, Disk 


Deletes every line of the current program up to and including 
the specified line. If there is no such line, an ILLEGAL 
FUNCTION CALL error occurs. 


DELETE<line number>-<line number> Extended, Disk 


Deletes all lines of the current program from the first line 
number to the second inclusive. ILLEGAL FUNCTION CALL occurs 
if no line has the second number. 


DSKINI<drive number> Disk 


Initializes diskettes on the specified drives by marking all 
sectors in tracks 6 - 77 as free. If no disk number is given, 
all disks are initialized beginning with the highest disk 
number. CAUTION: DSKINI destroys all files on the disk. Use 
with utmost caution. 


a 7 
EDIT<line number> Extended, Disk 
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Allows editing of the line specified without affecting any 
other lines. The EDIT command has a powerful set of 
sub-commands which are discussed in detail in section 5-4. - 


LIST . All 


Lists the program currently in memory, starting with the 
lowest numbered line. Listing is terminated either by the end 
of the program or by typing Control/c. 


The LIST command may be used to save programs on paper 
tape. Simply type LIST and turn on the teletype's paper tape 
punch pefore typing carriage return. Be sure the aulls have 
been set (see NULL command) to 3 before punching the program. 
To load a program from paper tape, put the tape in the 
teletype's reader and turn it on. The program loads as if it 
were being typed from the terminal. The NEW command may be 
used to clear old program lines before loading the new 
program. . 


LIST[<line number>] All 

In 4K and 8K, prints the current program beginning at the 
specified line. In Extended and Disk, prints the specified 
line if it exists. 

LIST[<line number>] [-<line number>] Extended, Disk 


Allows several listing options. 


iT If the second number is omitted, lists all ‘lines with 
numbers greater than or equal to the number specified. 


2s If the first number is omitted, lists all lines from the 
beginning of the program to the specified line, inclusive. 


Bi T£ both line numbers are used, lists all lines from the 
first number to the second, inclusive. 
LLIST[<line number>][{-<iine number>] Extended, Disk 


Same as list with the same options, except prints on the line 
printer. 


NEW All 


Deletes the current program and clears all variables. Used 
before entering a new program. 


NULL<integer expression> 8K, Extended, Disk 
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Sets the number of nubls to be printed at the end of each 
line. For 18 or 36 character per second tape punches, 
<integer expression> should be >=3. When tapes are not being 
punched, <integer expression> should be @ or 1 for Teletypes* 
and Teletype compatible CRT's. It should be 2 or 3 for 39 cps 
hard copy printers. The default value is @. In the-4K 
version, the same affect may be achieved by patching location 
46 octal to contain the number of nulls plus l. 


™ Teletype is a registered trademark of the Teletype: 
Corporation. 


RUN[<line number>] All 


Starts execution of the program currently in memory at the 
line specified. If the line number is omitted, execution 
begins at the lowest line number. Line number specification 
is not allowed in 4K. 


6=2. Statements. 


The following table of statements is listed in alpahabetical 
order. The notation in the Version column designates the 
versions to which each statement applies. In the table, X and 
Y stand for any expressions allowed in the version under 
consideration. I and J stand for expressions whose values are 
truncated to integers. V and W are any variable names. The 
format for an Altair BASIC line is as follows: 


<nnnnn> <statement>([:<statement>...] 
where nnnnn is the line number. 


Name Format ‘Version 
CONSOLE CONSOLE <I>,<J> Extended, Disk 
Allows terminal console device to be switched. I is the I/0 


port number which is the address of the low order channel of 
the new I/O board. J is the switch register setting (see 


section 5-1 for the list of settings). §<=I,J3<=255. 
DATA DATA<list> All 
ed ; 
Specifies data to be read by a READ statement. List elements 
can be numbers or, except in 4K, strings. 4K allows 
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expressions. List elements are separated by commas. 
DEF DEF FNV(<W>) =<x> 8K, Extended, Disk 


Defines a user-defined function. Function name is FN followed 
by a legal variable name. Extended and Disk versions allow 
user-defined string functions. Definitions are restricted to 
one line (72 characters in 4K and 8K, 255 characters in 
extended versions). 


DEFUSR DEFUSR[<digit>]=<x> Extended, Disk 


Defines starting address of assembly language SuDE ORE LHes Up 
to ten subroutines are allowed. 


DIM DIM <Ve(<I> pd cia d )fegeved) «Add 


Allocates space for array variables. In 4K, only one 
dimension is allowed per variable. More than one variable may 
be dimensioned by one DIM statement up to the limit of the 
line. The value of each expression gives the maximum 
subscript possible. The smallest subscript is @. Without a 
DIM statement, an array is assumed to have maximum subscript 
of 1@ for each dimension referenced. For example, A(I,J) is 
assumed to have 121 elements, from A(9,@) to A(1¥#,19) unless 
otherwise dimensioned in a DIM statement. 


END END All 


Terminates execution of a program. Closes all files in the 
Disk version. 


ERASE ERASE<V>[,<W>...] Extended, Disk 


Eliminates the arrays specified. The arrays may be 
redimensioned or the space made available for other uses. 


ERROR ERROR<I> Extended, Disk 


x 


Forces error with code specified by the expression. Used 
primarily for user-defined error codes. 
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FOR FOR<KV>=<X>TO<Y>[STEP<Z>] All 


Allows repeated execution of the same statements. First 
execution sets V=X. Execution proceeds normally until NEXT is 
encountered. 2 is added to V, then, IF Z<# and V>=Y, or if 
Z2>@ and V<=Y, BASIC branches back to the statement after FOR. 
Otherwise, execution continues with the statement after NEXT. 


GOTO ~ GOTO<nrannn> All 

Unconditional branch to line number. 

GOSUB . GOSUB<nnnnn> All 

Unconditional branch to subroutine beginning at line nnnnn. 
IF...GOTO IF <X> GOTO<nnnnn> 8K, Extended, Disk . 


Same as IF...THEN except GOTO can only be followed by a line 
number and not another statement. 


-IfF...THEN [ELSE] IF<X>THEN<Y> [ELSE<Z>] All 
or IFP<X>THEN<statement> [:statement...] 
[ELSE<statement> [:statement...] 


If vaiue of X<>@, branches to line number or statement after 
THEN. Otherwise, branches to the line number or statement(s) 
after ELSE. If ELSE is omitted, and the value of X=@, 
execution proceeds at the line after the .IF...THEN. (In 4K, X 
can only be a numeric expression. The ELSE clause is only 
allowed in Extended and Disk Altair BASIC. 


INPUT INPUT<V>[,<W>...] All 


Causes BASIC to request input from terminal. Values (or, in 
4K, expressions) typed on the terminal are assigned to the 
variables in the list. 


LET LET <V>=<xX> All 


Assigns the value of the expression to the variable. The word 
LET is optional. 


LINE INPUT LINE .INPUT[{eprompt stringa;]<line feed> 
<string variable name> Extended, Disk 


LINE .INPUT prints the prompt string on the terminal and 
assigns all input from the end of the prompt string to the 
carriage return to the named string variable. No other prompt 
is printed if the prompt string is gmitted. LINE INPUT may 
not be edited by Control/A. 
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LPRINT | LPRINT X[,Y...] Extended, Disk 


Same as PRINT, but prints on the line printer. Line feeds 
within strings are ignored. A carriage return is printed 
automatically after the 8@th character on a line. 


LPRINT USING LPRINT USING<string>;<list> Extended, Disk 


Same as PRINT USING but prints on the line printer. For a 
detailed description, see section 5-5. 


MIDS MIDS (<X$>,<I>[,<d>])=¥S$ Extended, Disk 


Part of the string X$ is replaced by ¥53. Replacement starts 
with the Ith character of xX$ and proceeds until yYS$ is 
exhausted, the end of X$ is reached or J characters have been 
replaced, whichever comes first. If I is greater than 
LEN(XS), an .ILLEGAL FUNCTION CALL error results. 


NEAT NEXT [<V>,<W>...] Ald 


Last statement of a FOR loop. Vis the variable of the most 
recent loop, W of the next most recent and so on. Only one 
variable is allowed in 4K. Except in 4K, NEXT without a 
variable terminates the most recent FOR loop. 


ON ERROR GOTO ON ERROR GOTO<line number> Extended, Disk 


When an error occurs, branches to line specified. Sets 
variable ERR to error code and ERL to line number where the 
error occured. See section 6-5 for a list of error codes. ON 
ERROR GOTO 8 (or without number) disables error trapping. 


ON. ..GOTO ON<IT>GOTO<list of line numbers> 8K, Ext., Disk 
Branches to line whose number is Ith in the list. ‘List 
elements are separated by commas. If I= or > number of 


elements in the list, execution continues at next statement. 
If .I<@ or >255, an error results. 


ON. ..GOSUB ON <I> GOSUB <list> 8K, Extended, Disk 


Same as ON...GOTO except list elements are initial line 
numbers of Subroutines. 


OUT OUT<I>,<J> 8K, Extended, Disk 
Sends byte J to port I. @<=I,J<=255. 
POKE POKE<1I>,<J> 8K, Extended, Disk 


Stores byte J in memory location derived from ls 
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8<=J<=255;-32768<1<65536.- If I is negative, address is 
65536+I. If I is positive, address=1. 


PRINT - PRINT<X>[,<Y>...] All 


Causes values of expressions in the list to be printed on the 
terminal. Spacing is determined by punctuation. 


Punctuation Spacing - next printing begins: 
, at beginning of next 14 column zone 
: immediately 
other or none at beginning of next line 


String literals may be printed if enclosed by quotation marks 
("). String expressions may be printed in all but 4k. 


PRINT USING PRINT USING<string>;<list> Extended, Disk 


Prints the values of the expressions in the list edited 
according to the string. The string is an expression which 
represents the line to be printed. The list contains the 
constants, variable names or expressions to be printed. List 
entries are separated by punctuation as in the PRINT 
statement. For a list of string characters and their 
functions, see section 5-5. 


READ READ<V>[,<W>...] All 


Assigns values in DATA statements to variables. Values are 
assigned in sequence starting with the first value in the 
first DATA statement. 


REM REM [<remark>] All 


Allows insertion of remarks. Not executed, but may be 
branched into. [In Extended and Disk versions, remarks may be 
added to the end of a line preceded by a single quotation mark 
(*). 


RESTORE RESTORE All 


Allows data from DATA statements to be reread. Next READ 
statement after RESTORE begins with first data of first data 
statement. 


RESUME RESUME [<number>] Extended, Disk 


Resumes program execution at the line specified after error 
trapping routine. If number is omitted or zero, resumes at 
statement where error occured. RESUME NEXT causes resumption 
at the statement following the statement where the error was 
made. 
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RETURN RETURN All 


Terminates a subroutine. Branches to the statement after the 
most recent GOSUB. 


STOP STOP All 


Stops program execution. BASIC enters command -level and, 
except in 4K, prints BREAK IN LINE nnnnn. Unlike END, STOP 
does not close files. 


SWAP SWAP <V>,<W> Extended, Disk 


Exchanges values of the variables named. Variables must be of 
the same type. 


TROFF TROFF Extended, Disk 


Turns off trace flag. The trace flag is turned on by TRON 
(see below). NEW also turns off the trace flag. 


TRON TRON : Extended, Disk 


Turns on trace flag. Prints number of each line in square 
brackets as it is executed. 


WAIT WAIT<I>,<J>[,<K>] 8K, Extended, Disk 


Status of port I is XOR‘d with K and AND‘ed with J. Continued 
execution awaits non-zero result. K defaults to @. 
O<=1I,3,K<=255. 


6-3. Intrinsic Functions. 


Altair BASIC provides several commonly used algebraic and 
string functions which may be called from any program without 
further definition. If the functions are not required for a 
program, they may be deleted when BASIC is loaded to conserve 
memory space. The functions in the following table are listed 
in alphabetical order. The notation to the right of the Call 
Format is the version(s) in which the function is available. 
As usual, xX and Y stand for expressions, .I and J for integer 
expressions and X$ and ¥$ for string expressions. 


Function Call Format Version 
ABS ABS (X) All 
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Returns absolute value of expression X. ABS(X)=X if X>=@, -xX 
if xX<@. 


ASC _ ASC (XS) 8K, Extended, Disk 


Returns the ASCII code of the first character of the string 
X&$. ASCLI codes are in appendix A. 


ATN ATN (X) 8K, Extended, Disk 


Returns arctangent(X). Result is in radians in range -pi/2 to 
pi/2. 


The following functions are available in Extended and Disk: 


CINT CINT(X) Converts X to integer. 

CSNG CSNG(X) \Converts X to single precision. 

CDBL CDBL(X) Converts X to double precision. 

If the argument is in the range -32768 to 32767, the 
CINT(X)=INT(X). Otherwise, CINT will produce an OVERFLOW 
error. 

CHRS CHRS (I) —— 8K, Extended, Disk 


Returns a string whose one element has ASCII code Tf. ASCII 
codes are in Appendix A. 


Cos COS (X) 8K, Extended, Disk 
Returns cos(X). xX is in radians. 
ERL | Extended, Disk. 


Returns the number of the line in which the last error 
eccurred. 


ERR . Extended, Disk 

Returns the error code of the last error. 

ERR ERR(T) Disk 

Returns parameters of disk errors. After a DISK I/O ERROR, 
ERR(@) returns number of the disk,. ERR(1) returns the track 
number (9-76) , ERR(2) returns the sector number, ERR(3) and 
ERR(4) return the low and high order 8 bits of the cumulative 
count of disk errors respectively. 

EXP EXP (X) 8K, Extended, Disk 


Returns e to the power X. X must be <=87.3365. 
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FIX FIX (X) Extended, Disk 

Returns the truncated integer part of X. FIX(X) is equivalent 
to SGN(X)*INT(ABS(X)). The major difference between FIX and 
INT is that FIX does not return the next lower number for 
negative xX. a 
FRE FRE (@) 8K, Extended, Disk 
Returns number of bytes in memory not being used by BASIC. _I£ 
argument is a string, returns number of free bytes in string 
space. 

HEXS HEXS (X). Extended, Disk 


Returns a string which represents the hexadecimal of the 
decimal argument. 


INP INP (I) , 8K, Extended, Disk 
Reads a byte from port I. 

INSTR INSTR([(I,]X$,¥S). Extended, Disk 
Searches for the first occurrence of string ¥S in XS and 
returns the position. Optional offset I sets position for 
starting the search. 9<=I1<=255. .If ID>DLEN(X$), if XS is null 
or if Y$ cannot be found, INSTR returns g. If ¥$ is null, 
INSTR returns I or 1. Strings may be string variable values, 
string expressions or string literals. 

INT INT (X) All 

Returns the largest integer <=xX 

LEFTS LEFTS (XS ,1) 8K, Extended, Disk 
Returns leftmost I characters of string Xs. 


LEN : LEN (XS) 8K, Extended, Disk 


Returns length of string xX$. Non-printing characters’ and 
blanks are counted. 


LOG LOG (X) 8K, Extended, Disk 
Returns natural log of X. xX>¥@ 
LPOS LPOS (xX) Extended, Disk 


Returns the current position of the line printer print head 
within the line printer buffer. Does not necessarily give the 
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physical position of the print head. The expression X must be 
given, but the value is ignored. 


. MIDS MIDS (X$,I[,J]) 8K, Extended, Disk 
Without J, returns rightmost characters from X$ beginning with 
the Ith character. If I>LEN(XS), MIDS returns the null 
String. @<I<255. With 3 arguments, returns a string of 
length J of characters from xX$ beginning with the [th 
character. If J is greater than the number of characters in 
X$ to the right of I, MIDS returns the rest of the string. 
O<=J<=255. 

acts OcTS (X) 8K, Extended, Disk 


Returns a string which represents the octal value of the 
decimal argument. 


RND RND (X) All 

Returns a random number between @ and l. X<@ starts a new 
sequence of random numbers. xX>@ gives the next random number 
in the sequence. X= gives the last number returned. [In 8K, 
Extended and Disk, sequences started with the same negative 
number will be the same. 

POS POS (I) | 8K, Extended, Disk 


Returns present column position of terminal's print head. 
Leftmost position =. 


RIGHTS RIGHTS (X$,I) 8K, Extended, Disk 


Returns rightmost I characters of string XS. If I=LEN(X$), 
returns XS. 


SGN SGN (X) All 

If X>9, returns 1, if X=9 returns dg, if X<@, returns -l. For 
example, ON SGN(X)+2 GOTO 190,299,300 branches to 199 if X is 
negative, 204 if X is @ and 399 if X 1s positive. 

SIN SIN (X) All 


Returns the sine of the value of X in radians. 
COS (X) =SIN (X+3.14159/2). 


SPACES - SPACES (I) Extended, Disk 


Returns a string of spaces of length I. 
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SPC SPC (TI) 8K, Bytended; Disk 
Prints I blanks on terminal. 4#<=I<=255. 

SOR SOR (X) | All 

Returns square root of X. X must be >=9 

STRS STRS (X) 8K, Extended, Disk 
Returns string representation of value of X. 

STRINGS STRINGS (I,J) Extended, Disk 


Returns a string of length I whose characters all have ASCII 
code J. See Appendix A for ASCII codes. 


TAB i TAB (I) All © 

Spaces to position I on the terminal. Space g@ is the leftmost 
space, 71 the rightmost. If the carriage is already beyond 
space I, TAB has no effect. @<=I<=255. May only be used in 
PRINT and LPRINT statements. 

TAN TAN (X) All 

Returns tangent(X). xX is in radians. 

USR USR(X) All 

Calls the user's machine language subroutine with argument X. 


VAL VAL (X$) 8K, Extended, Disk 


Returns numerical value of string X$. If first character of 
¥$ is not +, -, or a digit, VAL(XS$)=@. 


VARPTR VARPTR(V) | Extended, Disk 
Returns the address of the variable given as the argument. If 


the variable has not been assigned a value during the 
execution of the program, an ILLEGAL FUNCTION CALL error will 


occur. The main use of the VARPTR function is to obtain the 
address of variable or array so it may be passed to an 
assembly language subroutine. Arrays are usually passed by 


specifying VARPTR(A[%]) so that the lowest addressed element 
of the array is returned. 
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All. simple variables should be assigned values in a 
program before calling VARPTR for any array. 
Otherwise, allocation of a new simple variable will 
cause the addresses of all arrays to change. 


6~4. Special Characters 


Altair BASIC recognizes several characters in the ASCII 
font as having special functions in carriage control, editing 
and program interruption. Characters such as Control/C, 
Control/S, etc. are typed by holding down the Control key and 
typing the designated letter. The special characters in the 
table are listed in the order of the versions to which they 
apply, starting with those common to all versions and ending 
with those that apply only to extended versions. 


Typed as: Printed as: 


The following Special Characters are available in ALL 
versions. 


@ @ 
Erases current line and executes carriage return. 


+ —_— 


Erases last character typed. [If there is no last character 
types a carriage return. 


7 _ (underline) 

same as backarrow. 

Carriage Return 

Returns print head or curser to beginning of the next line. 
Control/c FANG (in Extended and Disk) 

Interrupts execution of current program or list command. 
Takes effect after execution of the current statement or after 


listing the current line. BASIC goes to command level and 
types OK. CONT command resumes execution. See section 6-l. 


Separates statements in a line. 
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The following special characters are available in 8K, Extended 
and Disk versions only. 


Control/o “NO (in Extended and Disk) 
Suppresses all output until an INPUT statement is encountered, 


another Control/O is typed, an error occurs or BASIC returns 
to command level. 


: ? 


Equivalent to PRINT statement. 


Rubout see explanation. 
Deletes previous character on an input line. First Rubout 
prints \ and the last character to be printed. Each 


successive Rubout prints the next character to the left. 
Typing a new character causes another \ and the new character 
to be printed. All characters between the backslashes are 
deleted. 

Control/U “NU (in extended) 

Same as @. 

Control/s 


Causes program execution to pause until Control/Q or Control/c 
is typed. 


Control/Q 

Causes execution to resume after Control/s. Control/S and 
Control/Q have no effect if no program is being executed. 

The following special characters are available in Extended and 
Disk versions only. 

Control/A 

Allows use of the EDIT command on the line currently being 
typed. Control/A is typed instead of Carriage Return. See 
section 5-4... 


Control/ti 1 to 8 spaces 


Tab character. Causes print head or curser to move to. the 
oeginning of the next 8 column field. Fields begin at columns 
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1, 9, 17, etc. The tab character is especially useful for 
formatting lines broken with line feeds. 


1@@<tab>FOR I=1 TO 1@:<line feed> 
<tab><tab>FOR J=l1 TO 198:<line feed> 
<tab><tab><tab>A(I,J)=@:<line feed> 
<tab>oNEXT J,I<carriage return> 


lists as: 
168 FOR I=l TO 1g: 
FOR J=1 TO 14: 
A(I,J)=0: 
NEXT J,I 
Control/G bell 


Rings terminal's bell. 
LINE FEED 


Breaks a longline into shorter parts. The result is still 
one BASIC line. 


Denotes the number of the current line. May be used wherever 
a line number is to be specified. 


[7] [,] 


Brackets are interchangeable with parentheses as delimiters 
for array subscripts. 


Lower Case Input 


Lower case alphabetic characters are always echoed as lower 
case, but LIST, LLIST, PRINT and LPRINT will translate lower 
' case to upper case if the lower case characters are not part 
of string literals, REM statements or remarks delineated by 
Single quotation marks (‘). 


6-5. Error Messages, 


After an error occurs, BASIC returns to command :level and 
‘types OK. Variable values and the program text remain intact, 


put the program cannot be continued by the CONT command. In 
4K and 8K versions, all GOSUB and FOR context is lost. The 
program may be continued by direct mode GOTO, however. When 
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an error occurs in a direct statement, no line number is 
printed. Format of error messages: 


Direct Statement ?XX ERROR . 
Indirect Statement ?XX ERROR IN YYYYY 


where XX is the error code and YYYYY is the line number where 
the error occurred. The following are the possible error 
codes and their meanings: 


ERROR CODE EXTENDED ERROR MESSAGE NUMBER 


The following error codes apply in ALL versions. 


BS . SUBSCRIPT OUT OF RANGE 9 


An attempt was made to reference an array element which is 
outside the dimensions of the array. In the 8K and larger 
versions, this error can occur if the wrong number of 
dimensions are used in an array reference. For example: 


when A has already been dimensioned by DIM A(19,1@) 

DD REDIMENSIONED ARRAY 1G 
After an array was dimensioned, another dimension statement 
for the same array was encountered. This error often occurs 
if an array has been given the default dimension of 198 and 
later in the program a DIM statement is found for the same 
array. 

FC ILLEGAL FUNCTION CALL 5 


The parameter passed to a math or string function was out of 
range. FC errors can occur due to: 


cae a negative array subscript (LET A(-1)=@) 
2s an unreasonably large array subscript (>32767) 
3. |LOG with negative or zero argument 
4, SOR with negative argument 
5. AwB with A negative and B not an integer 
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6. a call to USR before the address of a machine language 
subroutine has been entered. 


We calls to MIDS, LEFTS$, RIGHTS, INP, OUT, WAIT, PEEK, POKE, 


TAB, SPC, STRINGS, SPACES, INSTR or ON...GOTO with an 
improper argument. 


ID ILLEGAL DIRECT 12 


INPUT and DEF are illegal in the direct mode. In extended 
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versions, however, INPUT is legal in direct. 
NF NEXT WITHOUT FOR 1 


The variable in a NEXT statement corresponds to no previously 
executed FOR statement. 


OD OUT OF DATA, 4 
A READ statement was executed but all of the DATA statements 
in the program have already been read. The program tried to 
read too much data or insufficient data was included in the 
program. 

OM OUT OF MEMORY 7 
Program is too large, has too many variables, too many FOR 
loops, to many GOSUBS or too complicated expressions. See 
Appendix C. 

OV OVERFLOW 6 


The result of a calculation was too large to be represented in 
Altair BASIC's number format. If an underflow occurs, zero is 
given as the result and execution continues without any error 
message being printed. 

SN SYNTAX ERROR 3 


Missing parenthesis in an expression, illegal character in a 
line, incorrect punctuation, etc. 


RG RETURN WITHOUT GOSUB 3 


A RETURN statement was encountered before a previous GOSUB’ 
statement was executed. 


UL UNDEFINED LINE 8 


The line reference in a GOTO, GCOSUB, IF...THEN...ELSE or 
DELETE was to a line which does not exist. 


/9 DIVISION BY ZERO 11 
Can occur with integer division and MOD as well as floating 


point division. @ to a negative power also causes a DIVISION 
BY ZERO error. . 


The following error messages apply to 
8K, Extended and Disk versions only 


CN CAN'T CONTINE ay, 


Attempt to continue a program when none exists, an error 
occurred or after a modification was made to the program. 


LS STRING TOO LONG i5 


An attempt was made to create. a string more than 255 
characters long. 


OS OUT OF STRING SPACE 14 


String variables exceed amount of string space allocated for 
them. Use the CLEAR command to allocate more string space or 
use smaller strings or fewer string variables. 


Sa STRING FORMULA TOO COMPLEX 16 


A string expression was too long or too complex. Break it 
into two or more shorter ones. 


T™ TYPE MISMATCH 13 


The left hand side of an assignment statement was a numeric 
variable and the right hand side was a string, or vice-versa; 
or a function which expected a string argument was given a 
numeric one or vice-versa. 


UF UNDEFINED USER FUNCTION 18 
Reference was made to a user defined function which had never 


been defined. 


The following error messages are available in Extended and 
Disk versions only. 


MISSING OPERAND 24 
During evaluation of an expression, an operator was found with 
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no operand following it. 


NO RESUME | 19 


BASIC entered an error trapping routine, but the program ended 
before a RESUME statement was encountered. 


RESUME WITHOUT ERROR 21 


A RESUME statement was encountered, but no error trapping 
routine had been entered. . 


UNPRINTABLE ERROR 22 
An error condition exists for which there is no error message 


available. Probably there is an ERROR statement with an 
undefined error. code. 


LINE BUFFER OVERFLOW 23 
An attempt was made to input a program or data line which has 


too many characters to be held in the line buffer. Shorten 
the line or divide it into two or more parts. 


Disk Altair BASIC Error Messages 


FIELD OVERFLOW 52 


An attempt was made to allocate more than 128 characters of 
String variables in a single FIELD statement. 


INTERNAL ERROR a1 


‘Internal error in Disk BASIC. Report conditions under which 
error occurred and all relevant data to MITS software 
department. This error can also be caused by certain kinds of 
disk .I/O errors. 


BAD FILE 52 


An attempt was made to use a file number which specifies a 
file that is not OPEN or that is greater than the number of 
files entered during the Disk Altair BASIC initialization 
dialog. 


FILE NOT FOUND oa 
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FILE NOT FOUND . 53 


Reference was made in a LOAD, KILL or OPEN statement to a Fite 
which did not exist on the disk specified. 


BAD FILE MODE 54 

An attempt was made to perform a PRINT to a random file, to 
OPEN a random file for sequential output, to perform a PUT or 
GET on a sequential file, to load a random file or to execute 
an OPEN statement where the file mode is not I, GC, or R. 

FILE ALREADY OPEN | | 55 

A sequential output mode OPEN for a file was issued for a file 
that was already OPEN and had never been CLOSEG or a KILL 
statement was given for an OPEN file. 

DISK NOT MOUNTED 56 

An I/O operation was issued for a file that was not MOUNTed. 
DISK I/O ERROR Sf 


An I/O error occured on disk X. A sector read (checksum) 
error occurred eighteen (18) consecutive times. 


SET TO NON=-DISK STRING 58 


An LSET or RSET was given for a string variable which had not 
previously been mentioned in a FIELD statement. 


DISK ALREADY MOUNTED 59 


A wWOUNT was issued for a DISK that was already MOUNTed but 
never UNLOADed. 


DISK FULL 6a 


All disk storage is exhausted on the disk. Delete some old 
disk files and try again. 


INPUT PAST END 61 


An INPUT statement was executed after all the data in a file 
had been INPUT. This will happen immediately if an INPUT is 
executed for a null (empty) file. Use of the EOF function to 
detect End Of File will avoid this error. 
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BAD RECORD NUMBER 62 


In a PUT or GET statement, the record number is either greater 
than the allowable maximum (2946) or equal to zero. 


BAD FILE NAME 63 


A file name of @ characters (null) or a file name whose first 
byte was @ or 377 octal (255 decimal) or a file name with more 
than 8 characters was used as an argument to LOAD, SAVE, KILL 
or OPEN. 


MODE-MISMATCR 64 
Sequential OPEN for output was executed for a file that 
already existed on the disk as a random (R) mode file, or vice 
versa. 


DIRECT STATEMENT IN FILE _ 65 


A direct statement was encountered during a LOAD of a program 
in ASCII. format. The LOAD is terminated. 


TOO MANY FILES 66 


A SAVE or OPEN (0 or R) was executed which would create a new 
file on the disk, but all 255 directory entries were already 
full. Delete some files and try again. 


OUT OF RANDOM BLOCKS 67 


An attempt was made to have more random files OPEN at once 
than the number of random blocks that were allocated during 
initialization by the response to the 
"NUMBER OF RANDOM FILES?! question (see Appendix H). 


FILE ALREADY EXISTS 68 

The new file name specified in a NAME statement had the same 
namé as another file that already existed on the disk. Try a 
different name. 


FILE LINK ERROR 69 


During the reading of a file, a sector was read which did not 
belong to the file. 
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6-6. Reserved Words. 

Some words are reserved by the Altair BASIC interpreter for 
use as statements, commands, operators, ete. and thus may not 
be used for variable or function names. The reserved words 
are listed below in order of the versions for which they are 
reserved, starting with those reserved in all versions and 
ending with those reserved only in Disk Altair BASIC. Words 
reserved in larger versions may be used in smaller versions, 
although one may want to avoid all reserved words in the 
interest of compatibility. In addition to the words listed. 
below, intrinsic function names are reserved words in all 
versions in which they are available. 


RESERVED WORDS 


Words reserved in all versions. 


. CLEAR NEW 
DATA NEXT 
DIM PRINT 
END READ 
FOR REM 
GCSUB RETURN 
GOTO RUN 
IF STOP 
INPUT TO 
LET TAB 
LIST THEN 

USR 
Words reserved in 8K, Extended and Disk versions. All the above 
plus: 
AND ON 
CONT OR 
DEF OUT 
FN POKE 
NOT SPC 
NULL WAIT 


Words reserved in Extended and Disk versions. All the above plus: 


AUTO LINE 

CONSOLE LLIST 

DEFDBL LPRINT 
DEFINT MOD 

DEFSNG RENUM 

DEPSTR RESUME 
DELETE SPACES 

EDIT STRINGS 
ELSE SWAP 
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CLOSE 
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ERASE 
ERL 
ERR 
IMP 
INSTR 


Words 


DSKIS 
DSKOS$ 
FIELD 
FILES 
GET 
KILL 
LOAD 


TROFF 
R:0N 
VARPTR 
WIDTH 
XOR 


reserved in Disk. 


LSET 
MERGE 
MOUNT 
NAME 
OPEN 
PUT 
RSET 
UNLOAD 


All the above plus: 
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O82 NUL 
901 SOH 
992 STX 
083 ETX 
9G4 EOT 
985 ENQ 
O86 ACK 
007 BEL 
008 BS 
829 HT 
018 LP 
gil vt 
G12 FE 
g13 CR 
014 so 
215 SI 
916 DLE 
Q17 DCl 
018 DC2 
019 DC3 
929 pc4 
G21 NAK 
922 SYN 
$23 ETB 
G24 CAN 
025 EM 
826 SUB 
G27 ESCAPE 
828 FS 
929 GS 
839 RS 
931 US 
932 SPACE 
833 t 
934 . 
635 # 
936 $ 
937 3 
938 & 
039 : 
G49 ( 
941 ) 
g42 ® 


LF=Line Feed 
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DECIMAL 
943 
G44 
645 
@46 
G47 
948 
G49 
958 
O51 
052 
653 
g54 
955 
056 
$57 
958 
959 
968 
G61 
962 
063 


885 


FR=Form Feed 


ASCII CHARACTER CODES 


CHAR. 


+ 


GHYDOVOSZSOANAUHEADMONWPaWVV I A~s COOBIDUARWNHPAN: 


date 
On 1g 
Reloe 


DECIMAL 
986 
987 
988 
G89 


696 


O91 
892 
993 
G94 
995 
896 
097 


998 


G99 
1849 
191 
192 
183 
1234 
195 
106 
167 
198 
199 


CR=Carriage Return 


CHAR ew 


WH “Har K KM BS 


“AN 


ANS KH EQCeraAn Ques SrRARWUr TON mhoaaon 


DEL 


(or 4) 
(or ~—) 


DEL=Rubout 
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Using ASCII codes -- the CHRS function. 


CHRS(X) returns a string whose one character is that with 
ASCII code xX. ASC(X$) converts the first character of a 
string to its ASCII decimal value. 


One of the most common uses of CHRS is to send a special 
character to the user's . terminal. The most often used of 
these characters is the BEL (ASCII 7). Printing this 
character will cause a bell to ring on some terminals and a 
beep on many CRT's. This may be used as a preface to an error 
message, as a novelty, or just to wake up the user if he has 
fallen asleep. Example: — 


PRINT CHRS (7); 


Another major use of CHR$ is on those CRT‘s that have 
cursor positioning and other special functions (such as 
turning on a hard copy printer). For example, on most CRT's a 
form feed (CHRS(12)) will cause the screen to erase and the 
cursor to “home" or move to the upper left corner. 


Some CRT's give the user the capability of drawing graphs 
and curves in a special point-plotter mode. This feature may 
easily be taken advantage of through use of Altair BASIC's 
CHRS$ function. 
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APPENDIX B 
LOADING AND INITIALIZING BASIC 


A. Loading BASIC from paper tape or cassette. 


This appendix details the procedure for loading BASIC in 
4K, 8K and Extended versions from paper tape or tape cassette. 
For instructions on loading Disk BASIC, see appendix H. 


The programs below are entered into memory through the 
front panel switches. Rather than specify the switch 
positions as “up" and “down", it is convenient to denote the 
up position as 1 and the down position as 9. Taken in groups 
of three the switches can represent octal digits. To save 
space, the switch positions in the following .loader program 
listinas are shown in octal notation. . The leftmost two 
switches in an 8 bit set are represented by the first digit, 
the next three by the second digit and the low-order three 
Switches by the last digit. 


For examole, if we wish to enter octal 315 on the data 
switch register, the switches would have the following 
positions: 


7 6 5 4 3 2 1 Gg 
up up down down uo up down ud — 
3 a: 5 ; 


For data entry, only the rightmost 8 switches of the 16 
Switches on the ALTAIR 8899 front panel switch register are 
used. All 16 switches would be used to enter a memory 
address. 


The following is the procedure for loadinq BASIC from 
paver tape or cassette: 


Li Turn the power switch on 

2% Raise the STOP switch and RESET switch simultaneouslv 

3% Switch the terminal to LINE 

4. Enter one of the following programs on the front panel 
switches. The 88-MBL Multi-Boot Loader PROM contains the 
necessary loader programs, so it is not necessary to enter 


€@ loader from the front vanel if it is installed. Refer 
to the 88-MBL manual for more information. 
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loading from paper tape with the SIO board ( REV 1) 


Octal Address 
OG 
O01 
G92 
G83 
OO4 
625 
O86 
887 
G19 
G11 
612 
613 
g14 
815 
616 
G17 
926 
G21 
622 
§23 


g41 
392 
OxXX 
961 
922 
GOOG 
333 
GOD 
917 
339 
333 
G01 
275 
319 
g55 
167 
369 
351 
093 
BOG 


loading from cassette 
Octal Data 


Octal Address 
BGO 
G81 
G82 
G93 
GG4 
885 
406 
087 
G19 
G11 
@12 
G13 
g14 
g15 
G16 
$17 
B29 
g21 
G22 
G23 


G41 
392 
Oxx 
G61 
G22 
GGG 
333 
G66 


O17 © 


3396 
333 
O27 
2d 
3198 
955 
167 
309 
351 
093 
029 


Octal Data 


(17 for 4K, 37 for 8k, 
Extended & Disk) 


17 for. 


(17 for 4K, 37 for 8K, 77 for 


Extended and Disk) 
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loading with the 88 PIO board 
Octal Data 


Octal Address 
BOG 
G01 
G82 
093 
G04 
685 
G06 
907 
G19 
@1il 
g12 
813 
014 
@15 
G16 
G17 
829 
G21 
@22 
023 
024 


G41 
362 
Qxx 
961 
G23 
G29 
333 
994 
346 
G81 
319 
333 
885 
275 
319 
g55 
167 
386 
351 
G93 


290 


(17 for 4K, 37 for 8K, 77 for 
Extended and Disk) 


loading with the 2SI0 board 


Octal Address 


G96 
O91 
AB2 
823 
G94 
885 
026 
897 
G19 
G11 
@12 
913 
614 
015 
G16 
917 
02G 
921 
G22 
G23 
G24 
925 
826 


Octal: Data 


876 
293 
323 
G28 
076 
g21 
323 
O20 
G41 
382 
Oxx 


961 


632 
G96 
3o3 
929 
017 
329 
333 
@21 
275 
3198 


855 


(=2 stop bits, §25=1 stop bit) 


(l7for 4K, 37 for 8k, 77 for 
Extended and Disk) 
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98 


827 
9396 
931 
932 
933 


167 
388 
351 
G13 
909 


loading with the 4PIO board 


Octal Address 
95d 
OG1 
G82 
863 
GG4 
6a5 
G06 
G07 
919 
gil 
G12 
G13 
014 
915 
G16 
g17 
628 
G21 
922 
823 
G24 
625 
G26 
G27 
939 
031 
932 
933 
934 


Octal Data 


e207 


323 

G48 

323 

G41 

976 

54 

323 

049 

g41 

392 

O@xx (17 for 4K, 37 for 8K, 
@61 Extended and Disk) 
933 

999 

333 

G49 


Loading with the High Speed Tape Reader 


Octal Address 
O99 


Octal Data 


77 for 
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G12 876 
913 g14 
gi4 323 
615 G44 
816 876 
017 004 
920 323 
621 B46 
@22 323 
923 G47 
G24 G41 
G25 392 
826 O@xx (17 for 4K, 37 for 8K, 77 for 
g27 ; $61 Extended and Disk) 
836 g47 
231 ; 8G 
G32 333 
$33 G44 
934 346 
G35 199 
836 314 
937 333 
G48 G45 
841 275 
G42 319 
G43 G55 
G44 ; 167 
G45 300 
046 351 
G47 $27 
659 G88 


To enter these programs: 


Ls 


2. 
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Put switches @ to 15 in the down vositions 

“Raise EXAMINE 

Put the data for address zero in switches 9 thrown 7 
Raise DEPOSIT 

Put the data for the next address in the switches 
Depress DEPOSIT NEXT 


Repeat stevos 5 and 6 until the whole loader is toggled in 


‘oO 
ive) 


100 


8. 
9. 
19. 


ll. 
nore 
13. 
14. 
15. 


16. 


bee 
18. 
13s 


20. 


21. 


22. 


Put switches 9 through 15 in the down position 
Raise EXAMINE 


Check to see that the lights D@ through D7 show the data 
that should be in location 999. Light on =1, light off = 
G6. If the correct value is there, go to step 13; if not, 
go to ll. 


Put the correct value in the switches 

Raise DEPOSIT | 

Depress EXAMINE NEXT 

Repeat steps 19 through 13 to check the entire loader 


If there were any mistakes, check the entire loader again 
to make sure they were corrected. 


If a paper tape is being loaded, out it inte the reader 
and make sure that it is positioned at the beginning of 
the leader. The leader is the section of tape at the 
beginning with 392 octal punched in each column. If an 
audio cassette is being loaded, put it in the cassette 
recorder and make sure it is fully rewound. 


Lower switches @ through 15 
Raise EXAMINE 


Enter the sense switch settings. See the table in 
section B. 


If loading is through a SIOA, B or C or an 88PIO, turn on 
the tape reader and then depress RUN. If a cassette is 
being loaded, turn on the recorder, put it in PLAY mode 
and wait 15 seconds. Then press RUN on the computer. If 
loading is through a 4PIO, 2SIO or High Speed Tape Reader, 
depress RUN and then start the read device. 


Wait for the tape to read. Paper tape takes about 25 
minutes for Extended, 12 minutes for 8K and 6 minutes for 
4K. Cassettes take about 8 minutes for Extended, 4 
Minutes for 8K and 2 minutes for 4K. Do not move any of 
the switches while the tape is being read. 


If a loading error occurs, the loading procedure must 
Start over from step 1. See section C below for error 
conditions. 
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23% When the tape is read, BASIC should start up and orint 
MEMORY SIZE? See section D below for what to do next. 


24. If BASIC will not load from cassette, the ACR module may 
need realignment. The Input Test Program described in the 
ACR Manual, pages 22 and 28, may be used to test the ACR. 


B. Sense Switch Settings 


Sense switches (switches A8 through Al5) must be set 
before tape or cassette loading begins. The settings depend 
on the terminal and input interface boards in use. The low 
order (rightmost) four switches contain the load board 
setting, and the high order four switches contain the terminal 
board setting. - In the table below, the setting is given for 
each I/O board option. As above, the setting is an octal 

_humber which signifies the switch positions. The Terminal 
Switch and Load Switch columns show the switches that are 
raised for each of the load and terminal device options. 


Sense Switch Terminal Load 
Device Setting _ Switches Switches Channels 
2SIO 4) none none 28, 21 
(2 stop bits) ; 
2SIO za Al2 A8 28, 21 
(1 stop bit) 
SIO 2 Al3 Ag Gg, l 
ACR 3 A13,A12 A9,A8 Gy F 
4PIO 4 Al4 Alg 49, 41, 42, 43 
PIO 5 Al4,A12 A1@,A8 4, 5 
HSR 6 Al4,A13 AlS,A9 46, 47 
non—standard 14 
terminal 


no terminal 15 
Examples: 


Input from audio cassette through ACR and CRT terminal 
through 2SIO with 1 stop bit. 

Switch 15° 14 13.22. Ti. ye .s 8 

Position 9g 9 g 1 g i) 1 1 


Input from high speed paper tape reader, terminal 
through SIO. 

Switch 1S). dA, 28). 312% “2. ae oo 8 

Position @ g a G g 1 i 6G 
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C. Error Detection 


The checksum loader turns on the Interrupt Enable light 
on the front panel when a loading error occurs. The ASCII 
code of the error letter is stored in location 9g. In 
addition, the error letter is sent out over all the terminal 
channels and appears on whatever terminal is connected to the 
terminal. The error letters are as follows: 


checksum error. Bad tape data. 

memory error. Data won't store properly. 
The address of the bad memory location is stored 
in locations 1 and 2. 

O overlay error. Attempt was made to load data on top 

of the loader. 
I invalid load device. Invalid setting on the 
sense switches. 


=O 


D. Initialization Dialog 
Upon starting, BASIC vorints 
MEMORY SIZE? 


To this, the user responds by tyving the number of bytes of 
memory to be used by BASIC and BASIC programs. Remember that 
the BASIC interpreter itself takes 3.4K in the 4k version, 
6.2K in 8K and 14.6K in Extended. If the response is just a 
carriage return, BASIC will use all the memory it can find, 
starting at location zero up to the last byte of read/write 
memory. Then BASIC asks, 


TERMINAL WIDTH? 


to which the user resovonds with the width of the printing line 
of whatever output device is in use. Typing a carriage return 
sets the terminal width to 72. Extended and Disk Altair BASIC 
set the terminal width through the WIDTH command, so the 
TERMINAL WIDTH guestion is not asked at initialization and an 
initial width of 72 is assumed. 


In 4K, the response to MEMORY SIZE? and TERMINAL WIDTH? 
must be less than 6 digits. 


The Extended and Disk versions now ask what kind of line 
printer is in use. 


LINEPRINTER? 


The user answers with O if the 80LP printer is in use, C for 
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the C70@ and Q for the Q79. One of these letters must be 
typed whether or not a lineprinter is connected to the system. 


At this point .BASIC asks several questions about 
mathematical functions. The functions may be kept if needed 
or deleted to save space. 4K asks, 


SIN? Answer Y to save SIN, SQR and RND 
Answer N to delete SIN and see the 
next guestion 

SQR? Y keeps SOR and RND 
N deletes SQR, asks next question 

RND? Y keeos RND 
N deletes RND 

8K and Extended BASIC ask, 

WANT SIN-COS-TAN-ATN? keeps all four 

deletes all four 
deletes only ATN 
(in extended) retains 
CONSOLE and all other 
functions. Other an- 
swers delete CONSOLE. 


AP ak 


Now BASIC prints, 
XXXX BYTES FREE 


ALTAIR BASIC VERSION 4.9 
[FOUR-K VERSION] 

or 
[EIGHT-K VERSION] 

or 
[EXTENDED VERSION] 
COPYRIGHT 1977 BY MITS, INC. 
OK 


BASIC is now in command level and is ready for use. 
E. Echo Routines. 


The Altair input/output channels work in a full-duplex 
mode, This means that characters entered on an input/output 
terminal will not, as a rule, be printed as they are entered 
unless the computer is programmed to return them. The 
following echo programs may be used to test the inout/output 
devices. To test an input-only device, dumo the echoed 
characters on an output device or store them in memory for 
later examination. To test an output-only device, send the 
echo characters through the front panel ,switches .or send a 
constant character. Be sure to check the ready-to-recaive bit 
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of the output terminal before attempting output. If the echo 
program works, but BASIC does not, make sure the load device's 
T/O board is strapped for 8 data bits and that the 
ready-to-recieve bit is set properly on the terminal device. 


88=-PIO 

OCTAL ADDRESS OCTAL DATA 
O81 9G4 
G82 346 
693 GG1 
004 312 
805 G59 
826 G09 
O37 333 
019 685 
G11 323 
912 6g5 
$13 363 
G14 OGG 
$15 GOB 

2SIO 

OCTAL ADDRESS OCTAL DATA 
899 076 
OG1 003 
GG2 323 
B03 626 (flag ch.) 
Og4 076 
995 _ @21 (=2 stop bits, 
996 323 §825=1 stop bit) 
907 928 
G12 333 
g1l G20 
G12 G17 
913 322 
g14 G19 
G15 GGB 
815 333 
@17 @21 (data channel) 
929 S25 
G21 G21 
G22 393 
§23 G19 
G24 GaGa. 

-4PIO 

OCTAL ADDRESS OCTAL DATA 
80g 257 
O61 323 
G02 G4g 
9683 323 


a@4 gal 
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995 
006 
007 
919 


' 611 


912 
813 
G14 
615 
916 
@17 
G20 
921 
$22 
923 
G24 


025 


026 
O27 
930 
631 
932 
933 
634 
935 
836 
937 
G49 
G41 
942 
G43 
O44 


323 
G42 
957 
323 
943 
676 
954 
323 
Q4G 
323 
G42 
333 
G49 
346 
290 
312 
820 
980 
333 
G42 
346 
290 
312 
927 
800 
333 
941 
323 
G43 
363 
G29 
896 
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APPENDIX C 
SPACE AND SPEED HINTS 


A. Space Allocation 


The memory space required for a program depends, of 
course, on the number and kind of elements in the program. 
The following table contains information on the space required 
for the various program elements. 


Element Space Required 


Variables 
numeric integer 5 bytes 
Single precision 7 bytes in Extended and Disk 
6 bytes in 4K and 8K 
double precision 11 bytes 
string 6 bytes 


Arrays 
integer (# of elements) *{2/+/6|+(# of dimensions)*2 bytes 
Single orecision 4 
double precision 8 
string 3 
8K and 4k 
strings and floating pt. [6/+[5 
Functions 
intrinsic 1 byte for the call (2 bytes in Extended and Disk) 


user-defined 6 bytes for the definition 


Reserved Words 1 byte each ’ 
2 bytes for ELSE in Extended and Disk 


Other Characters 


1 byte each 
Stack Svace 
active FOR 
loop 17 bytes in Extended and Disk, 


16 bytes in 4K and 8K 
active GOSUB 5 bytes 
parentheses 6 bytes each set 
temporary 
result 12 bytes in Extended and Disk 
19 bytes in 4K and 8k 
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BASIC itself takes about 3.4K in the 4K version, 6.2K in 
8K, 14.6K in Extended and 29 K in Disk. 


B. Space Hints 


The space required to run a program may be significantly 
reduced without affecting execution by following a few of the 
following hints: 


nae Use multiple statements per line. Each line has a 5 byte 
overhead for the line number, etc., so the fewer lines 
there are, the less storage is required. 
2. Delete unnecessary spaces. Instead of writing 
1@ PRINT X, Y, 2 


use 


19 PRINTX,Y,2Z 


a Delete REM statements to save 1 byte for REM and 1 byte 
for each character of the remark. 


4. Use variables instead of constants, expecially when the 
Same value is used several times. For example, using the 
constant 3.14159 ten times in a program uses 49 bytes more 
space than assigning . 


18 P=3.14159 
once and using P ten times. 


5 Using END as the last statement of a program is not 
necessary and takes one extra byte. 


6. Reuse unneeded variables instead of defining new 
variables. 


Te Use subroutines instead of writing the same code several 
times. 


8. Use the smallest version of BASIC that will run the 
program. 


9% Use the zero elements of arrays. Remember the array 
dimensioned by 


199 DIM A(10) 


ee 


has eleven elements, A(@) through A(19). 
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19. 


In Extended and Disk, use integer variables wherever 
possible. 


Speed Hints 


Deleting spaces and REM statements gives a small but 
significant decrease in execution time. 


Variables are set up in a table in the order of their 
first appearance in the program. Later in the program, 
BASIC searches the table for the variable at each 
reference. Variables at the head of the table take less 
time to search for than those at the end. Therefore, 


‘reuse variable names and keep the list of variables as 


short as possible. 


In 8K, Extended and Disk use NEXT without the index 


variable. 


8K, Extended and Disk have faster floating point 


arithmetic than 4K. If space is not a limitation, use the 


larger versions. 


The math functions in 8K, Extended and Disk are faster 
than those in 4K. 


In the 4K and 8K versions, use variables instead of 
constants, especially in FOR loops and other code that 
must be executed repeatedly. 


In Extended and Disk, use integer variables wherever 
possible. 


String variables set up a descriptor which contains the 
length of the string and a pointer to the first memory 
location of the string. As strings are maninoulated, 
String space fills up with intermediate results and 
wextraneous material as well as the desired string 
information. When this happens, BASIC's “garbage 
collection" routine clears out the unwanted material. The 
frequency of gargbage collection is inversely proportional 
to the amount of string space. The more string space 
there is, the longer it takes to fill with garbage. The 
time garbage collection takes is proportional to the 
square of the number of string variables. Therefore, to 
minimize garbage collection time, make string svace as 
largge as possible and use as few string variables as 
possible. 


BASIC 4,1 


April, 1977 


‘APPENDIX D 
MATHEMATICAL FUNCTIONS 


1. Derived Functions. 
The following functions, while not intrinsic to ALTAIR BASIC, 
can be calculated using the existing BASIC functions: 


Function: BASIC equivalent: 


SECANT SEC(X) = 1/COS (X) 
COSECANT CSC(X) = 1/SIN(X) 
COTANGENT COT(X) = 1/TAN(X) 


INVERSE SINE 
INVERSE COSINE 


ARCSIN(X) = ATN(X/SQR(-X*X+1) ) 
ARCCOS(X) = -ATN X(X/SQR(-X*X+1)) 
+1.5708 ats 
ARCSEC(X) = ATN(XSOR(X*X-1)) 
+SGN (SGN (X)-1) *1.5708 
ARCCSC(X) = ATN(1/SQR(X*X-1)) 


INVERSE SECANT 


INVERSE COSECANT 


+ (SGN (X¥)-1)*1.5798 


INVERSE COTANGENT ARCCOT(X) = ATN(X)+1.5708 

HYPERBOLIC SINE SINH(X) = (EXP (X)-EXP(-xX))/2 

HYPERBOLIC COSINE COSH(X) = (EXP (X)+EXP(-X))/2 

HYPERBOLIC TANGENT TANH (X) = EXP (-X) /EXP (X) +EXP (-X)) 
*2+] 

HYPERBOLIC SECANT SECH(X) = 2/(EXP(X)+EXP (=X) ) 

HYPERBOLIC COSECANT CSCH(X) = 2/(EXP(X)-EXP(-X)) 

HYPERBOLIC COTANGENT COTH(X) = EXP (-X) / (EXP (X) -EXP (-X) ) 
*2+1 

INVERSE HYPERBOLIC 

SINE ARCSINH(X) = LOG(X+SOR(X*X#1) ) 

INVERSE HYPERBOLIC 

COSINE ARCCOSH(X) = LOG(X+SOR(X*X+-1) ) 

INVERSE HYPERBOLIC 

TANGENT ARCTANH (X) = LOG((1+X)/(1-X) )/2 

INVERSE HYPERBOLIC 

SECANT ARCSECH(X) = LOG((SQR(-X*X+#1)+#1)/X) 

INVERSE HYPERBOLIC ; 

COSECANT ARCCSCH(X) = LOG((SGN(X)* 


INVERSE HYPERBOLIC 


COTANGENT 


‘2. Simulated Math 


The following subroutines are intended for 4K BASIC users 


SQR(X*X+1) +1) /X 


ARCCOTH (X) 


Functions. 


= LOG((X+1)/(X-1))/2 


who 


want to use the transcendental functions not built into 4k 
BASIC. The corresponding routines for these functions in the 
109 
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8K version are much faster and more accurate. The REM 
statements in these subroutines are given for documentation 
purposes only, and should not be typed in because they take un 
a large amount of memory. The following are the subroutine 
calls and their 8K equivalents: : 


8K EQUIVALENT 4K SUBROUTINE CALL 
P9=X9°Y9 © GOSUB 69636 
L9=LOG (X9) GOSUB 69699 
EQ=EXP (X9) GOSUB 69169 
C9=COS (X9) GOSUB 6024G 
T9=TAN (X9) GOSUB 608239 
AS=ATN (X9) GOSUB 68319 


The unneeded subroutines should not be typed in. Please note 
which variables are used by each subroutine. Also note that 
TAN and COS require that the SIN function be retained when 
BASIC is loaded and initialized. 


64900 REM EXPONENTIATION: P9=X97 x9 

608918 REM NEED: EXP, LOG 

604620 REM VARIABLES USED: A9,B9,C9,E9,L9,P9,X9,Y9 

68038 REM P9 =] : E9=@ : IF Y9=G@ THEN RETURN 

60949 IF X9<@ THEN IF INT(Y9)=Y9 THEN P9=1-2*Y9+4* INT (Y9/2) 
: X9=-x9 

69950 IF X9<>@9 THEN GOSUB 6999@ : X9=Y9*L9 : GOSUB 6915¢ 

60@60 P9=P9*EQ : RETURN 

69079 REM NATURAL LOGARITHM: L9=LOG(X9) 

60489 REM VARIABLES USED: A9,B9,C9,£9,L9,X9 

66999 E9=9 : IF X9<=9 THEN PRINT “LOG FC ERROR"; : STOP 

69100 A9=1: B9=2: C9=.5: REM THIS WILL SPEED THE FOLLOWING 

60119 IF X9>=A9 THEN X9=C9*X9 ;: EQ=E9+A9 : GOTO 69100 

68129 X9=(X9-.707197) /(X9+.7977197) : L9=X9*X9 

60139 L9=(((.598979*L9+.961471) *L94+2.88539) *X9+E9~.5) * 
-693147 

68135 RETURN 

66149 REM EXPONENTIAL : E9=EXP(X9) 

68158 REM VARIABLES USED: A9,E9,L9,X9 

60169 LO=INT(1.4427*X9)+1 : IF L9<127 THEN 69184 

69179 IF X9>@ THEN PRINT “EXP OV ERROR": : STOP 

69175 E9=@ : RETURN 

69180 E9=.693147*L9-X9 : AI=1.32988E-3-1.41315E-4*E9 

68198 A9=( (A9*E9-8 .38136E-3) *E9+4.165 745-2) * £9 

66195 E9=((A9—.166665) *B9-1) *E9+] ; AQ=2 


68197 IF L9<=@ THEN A9=.5 : L9=-L9 : IF L9=9 THEN. RETURN 


60206 FOR X9=1 TO L9 : E9=A9*E9 : NEXT X9 : RETURN 
68216 REM COSINE: C9=COS (X39) 

68229 REM N.B. SIN MUST BE RETAINED AT LOAD-TIME 
69239 REM VARIABLES USED: C9,xX9 

602480 C9=SIN(X9+1.5798) : RETURN 

69258 REM TANGENT: T9=TAN (X9) 


BASIC 4,1 


April, 1977 


69260 
69278 
68286 
69296 
60309 
69319 
66329 


66336 
60349 
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REM NEEDS COS. (SIN MUST BE RETAINED AT LOAD-TIME) 

REM VARIABLES USED: C9,T9,X9 

GOSUB 646249 : T9=SIN(X9)/C9 : RETURN 

REM ARCTANGENT : A9=ATN(X9) : 

REM VARIABLES USED: A9,89,C9,T9,X9 

T9=SGN(X9): X9=ABS(X9):C9=9: IF X>1 THEN C9-1: X9=1/X9 

AQ=X9*X9 : B9=((2.86623E-3*A9-1.61657E—2) *A9 oe 
+4.29996E=-2) *A9 

B9=((((B9-7.5289E-2) *A9+.106563) *A9-.1142489) *39+.199936) *A9 

A9= ( (B9-.333332) *A9+1)*X9 : IF C9=1 THEN A9=1.5798-A9 


ii2 


APPENDIX E 
BASIC AND ASSEMBLY LANGUAGE 


All versions of Altair BASIC have provisions for 
interfacing with assembly language routines. The USR function 
allows Altair BASIC programs to call assembly language 
subroutines in the same manner as BASIC functions. 


The first step in setting up a machine language 
subroutine for an Altair BASIC program is to set aside memory 
space. When BASIC asks, "MEMORY SIZE?" during initialization, 
the response should be the size of memory available minus the 
amount needed for the assembly language routine. BASIC uses 
all the bytes it can find from location zero up, so only the 
topmost locations in memory can be used for user supplied 
routines. If the answer to the MEMORY SIZE? question is too. 
small, BASIC will ask the question again until it gets all the 
memory it needs. See Appendix C for Altair BASIC's memory 
requirements. 


The assembly language routine may be loaded into memory 
from the front vanel switches or from a BASIC nrogram by means 
of the POKE statement. 


The starting address of the assembly language routine 
goes in USRLOC, a two byte location in memory which varies 
from version to version. USRLOC for 4K and 8K Altair BASIC 
version 4.9 is 111 octal. In Extended and Disk, USRLOC need 
not be known explicitly since it is defined automatically by 
DEFUSR (section 5-36). The function USR calls the routine 
whose address is in USRLOC. Initially, USRLOC contains the 
address of ILLFUN, the routine which gives the FC or ILLEGAL 
FUNCTION CALL error. If USR is called without an address 
loaded in USRLOC, an ILLEGAL FUNCTION CALL error results. 


When USR is called, the stack vointer is set up for 8 
levels (16 bytes) of stack storage. If more stack space is 
needed, BASIC's stack can be saved and a new stack set up for 
use by the assembly language routine. BASIC's stack must be 
restored, however, before returning from the user routine. 


All memory and all the registers can be changed by a 
user's assembly language routine. Of course, memory locations 
within BASIC ought not to be changed, nor should more bytes be 


popped off the stack than were put on it. 


JSR is called with a single argument. The assembly 
language routine can retrieve this argument by calling the 
routine whose address is in locations 4 and 5 decimal. The 
low-order byte of the address is in 4 and the high-order in 5. 
In 4K and 8K, this routine (DEINT) stores the argument in the 
register pair [D,E]. In Extended and Disk, the arcqument is 


BASIC 4.1 


April, 1977 


passed in pair [H,L]. The argument is truncated to integer in 
4K and 8k, and if it is not in the range -32758 to 32767, an 
FC error occurs. In Extended and Disk, the register pair 
{[H,L] contains a pointer to the Floating Point Accumulator 
where the argument is stored (see section 5-3b. for more 
information about use of the Floating Point Accumulator). 


To pass a result back from an assembly language routine, 
load the value in register pair [A,8] in 4K and 8K, or [H,L] 
in Extended. This value must be a signed, 16 bit integer as 
defined above. Then. call the routine whose address is in 
locations 6 and 7. If this routine is not called, USR(X) 
returns X. To return to BASIC, then, the assembly language 
routine executes a RET instruction. 


Assembly language routines can be written to handle 
interrupts. Locations 56, 57 and 58 are used to hold a JMP 
instruction to a user supplied interrupt handlina routine. 
Location 56 initially holds a RET, so it must be set up by the 
user or an interrupt will have no effect. 


All interrupt handling routines should save the stack, 
registers A-L and the PSW. They should also reenable 
interrupts before returning since an interrupt automatically 
disables all further interrupts once it is received. 


There is only one way to call an assembly language 
routine in 4K and 8K, but this does not limit the programmer 
to only one assembly lanquage routine. The arqument of USR 
can be used to designates which routine is being called. In 
8K, additional arguments can be passed through the use of POKE 
and values may be passed back by PEEK. 


In Extended and Disk BASIC, up to ten routines may be 
called with the USRI - USR9 functions. For more information 
on this feature, seé section 5-3b. 
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APPENDIX F 
USING THE ACR INTERFACE 


NOTE 


The cassette features , CLOAD and CSAVE , are only 
present in 8K Altair BASICs which are distributed on 
cassette and in Extended and Disk versions. 8K BASIC 
On paper tape will give the user about 258 additional 
bytes of free memory, but it will not recognize the 
CLOAD or CSAVE commands. 


Programs may be saved on cassette tape by means of the 
CSAVE command. CSAVE may be used in either direct or indirect 
mode, and its format is as follows: 


CSAVE <string expression> 


The program currently in memory is saved on cassette under the 
name specified by the first character of the <string 
expression>. CSAVE writes through channel 7 when the Write 
Buffer Empty bit (bit 7) of channel 6 is low. After CSAVE is 
completed, BASIC always returns to command level. Programs 
are written on tape in BASIC's internal representation. 
Variable values are not saved on tape, although an indirect 
mode CSAVE does not affect the variable values of the pnrogram 
currently in memory. The number of nulls (see NULL command) 
has no affect on the operation of CSAVE. Before using CSAVE, 
turn on the cassette recorder. Make sure the tape is in the 
prover position then pout the recorder in RECORD mode. 


Programs may be loaded from cassette tape by means of the 
CLOAD command, which has the same format as CSAVE. The effect 
of CLOAD is to execute a NEW command, clearing memory and all 
variable values and loading the specified file into memory. 
When done reading and loading, BASIC returns to command level. 
CLOAD reads a byte from channel 7 when the Read Data Ready bit 
(bit 9) in channel 6 is low. Reading continues until 3 
consecutive zeros are read. BASIC will not return to command 


‘level after a CLOAD if it could not find the requested file, 


or if the file was found but did not end with 3 zeros. In 
that case, the computer will continue to search until it is 
stopped and restarted at location 9. 
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In the 8K cassette and Extended versions of ALTAIR BASIC, 
data may be read and written with the CSAVE* and CLCAD* 
commands. The formats are as follows: 


CSAVE*<array variable name> 


CLOAD*<array variable name> 


See section 2-4d for a discussion of CSAVE* and CLOAD* for 
array data. 


CLOAD?<string expression> compares the program currently 
in memory with the spvecified file on cassette. If the two 
files match, BASIC prints OK. If not, BASIC vrints NO GOOD. 


Data may also be read from and written on cassette in the 
paper tape version of 8K Altair BASIC. To write data, execute 
a WAIT 6,128 statement to check for the Write Buffer Emoty bit 
and then write with an OUT 7,<byte> statement. To read, 
execute a WAIT 6,1 to check for Read Data Ready and then read 
with an INP(7). The end of a block of data may be 
conveniently designated by a special character. Data should 
be stored in array form since there is no time during reading 
and writing for computation. 


% 
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APPENDIX G 
CONVERTING BASIC PROGRAMS 
NOT WRITTEN FOR THE ALTAIR COMPUTER 


Though implementations of BASIC on different computers 
are in many ways similar, there are some incompatibilities 
between ALTAIR BASIC and the BASIC used on other computers. 


1) Strings. 


A number of BASICS require the length of strings to be 
declared before they are used. All dimension statements of 
this type should be removed from the program. In some of 
these BASICs, a declaration of the form DIM AS(I,J) declares a 
string array of J elements each of which has a lenath I. 
Convert DIM statements of this type to equivalent ones in 
Altair BASIC: DIM AS(J). Altair BASIC uses " + “" for string 
concatenation, not " , “ or “ & ." ALTAIR BASIC uses LEFTS, 
RIGHTS and MIDS to take substrings of strings. Some other 
BASICs use AS({I) to access the Ith character of the string A$, 
and AS$(I,J) to take a substring of A$ from character ovoosition 
I to character position J. Convert as follows: 


OLD NEW 
AS (I) MIDS (A$,1I,1) 
A$ (I,J) MIDS (AS,1I,J-I+1) 


This assumes that the reference to a subscriot of AS is in an 
expression or is.on the right side of an assignment. If the 
reference to AS is on the left hand side of an assignment, and 
XS is the string exoression used to replace characters in A$, 
convert as follows: 


In 4K and 8K 


OLD NEW 

AS (I) =XS AS=LEFTS (AS ,I-1)+XS+MIDS$ (AS ,I+1) 
AS (I,J) =X$ AS=LEFTS (AS ,I-1)+XS+MIDS (AS,J+1) 
Extended and Disk 

OLD NEW 

AS (I)=XS MIDS (AS,1,1)=X$ 

AS (I,J) =X$ MIDS (AS,1I,J-I+1) =X$ 


2) Multiple assignments. 
Some BASICs allow statements of the form: 


599 LET B=C=6 
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This statement would set the variables 8 and C to zero. In 8K 
Altair BASIC, this has an entirely different effect. All the 
“= " signs to the right of the first one would be interovreted 
as logical comparison operators. This would set the variable 
B to -l if C equaled 9. If C did not equal J, B would be sat 
to @. The easiest way to convert statements like this one is 
to rewrite them as follows. 


5@8 C=9:B=C 


3) Some BASICs use " \ “instead of “ : “ to delimit multiole 
statements on a line. Change each" \ “to “ : “ in the 
program. 


4) Paper tapes punched by other BASICs may have no nulls at 
the end of each line instead of the three per line recommended 
for use with Altair BASIC. To get around this, try to use the 
tape feed control on the Teletype to. stop the tave from 
reading as soon as Altair BASIC prints a carriage return at 
the end of the line. Wait a moment, and then continue feeding 
in the tape. When reading has finished, be sure to punch a 
new tape in Altair BASIC‘'s format. 

A program for converting tapes to Altair BASIC's format 
was published in MITS Computer Notes, November 1976, pop. 25. 


5) Programs which use the MAT functions available in some 
BASICS will have to be rewritten using FOR...NEXT loovs to 
perform the aporopriate overations. 
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APPENDIX 8 
DISK INFORMATION 


Format of Altair Floppy Disk 


Track Allocation: 


Tracks Use 


9-5 Disk BASIC memory image. 
6-69 Space for either random or sequential files. 
79 Directory track. See below. 


71-76 Space for sequential files only. 


Format of DISK BASIC Memory Image (Tracks 9-5): 


BASIC is loaded starting at track @ sector 9 then track 9 
sector 1, etc. Each sector contains 128 bytes of BASIC. The 
first 128 bytes are loaded first, second 128 second, etc. 


Sector format (Tracks 9-5): 


Byte — Use 
g Track Number+128 decimal. 
1-2 Sixteen bit address of the next 


higher byte of memory than the highest memory location 
Saved on this sector. 

3-139 128 bytes of BASIC. 

131 255 decimal stop byte. 

132 Checksum - sum of bytes 3-139 with no carry in 8 bits. 


Sector format (Tracks 6-76): 


Byte ' Use 


g Most Significant Bit always on. 
Contains track number plus 299 octal. 
it Sector number * 17 MOD 32. : 
2 File number in directorv. Zero file number means 


that the sector is not cart of any file. If the 
sector is the first file of a group of 8 sectors 
9 means the whole group of 8 sectors is free. 
3 Number of data bytes written (9 to 128) . Always 
128 for random files. (Except for the random file 
index blocks in which case this byte indicates how many 
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groups are allocated to the file.) 

4 Checksum. The sum of all the data on the sector 
except for the track number, the sector 
number and the terminating 255 byte. 

5,6 Pointer to the next group of data. This is set up for 
random files and sequential files, and is even valid 
in the middle of a group. If it is zero it means there 
is no more-data in the file. The track is the first byte 

; and the sector nUMNES. is the second byte. 
7-134 Data 


135 A 255 (octal 377) to make sure the right number 
of data bytes were read. 
136 Unused. 


Directory Track (70) Format: 


Each sector of the directory (which is all of track 79) 
is composed of up to 8 file name slots, 16 bytes per slot. 
Each slot can contain a file name (8 bytes), a link to the 
Start of file data (2 bytes) and a byte which specifies the 
mode of a file (Random=4, Sequential=2). The remaining 5 
bytes are not currently used. Any slot which has the first 
file name byte egual to zero contains a file which has been 
deleted. If the first byte of a slot is a 255 , it is the 
last slot currently in use in the directory. Slots beyond the 
"stopover" are garbage, File numbers are calculated by 
multiplying the sector number of the directory track the file 
is in by 8 and adding the position of the slot in the sector 
(@-7) plus l. 


NOTE 


The ith logical sector on a track is actually mapped 
to the i*17 MOD 32 ohysical sector to shorten access 
time in BASIC I/O operations. 


. Format of Random Files 


Each random file starts with two random index blocks. The 
“number of data bytes" field in the first block indicates how 
Many groups are currently allocated to this random file. The 
next 256 bytes in the two random index blocks give the 
location of each group in the random file in order of their 
position in the file. The upper two bits give the group 
number , and the lower six bits give the track number - 6. 
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Assembly Code to Read and Write a Sector 


The following code has been provided to helo users write their 
own assembly language subroutines to read and write data on 
the floppy disk. It is assumed that the disk being used has 
already been enabled and positioned to the correct track. Two 
data bytes are always read or written at a time so that the 
CPU can keep up with the data rate (32 microseconds/byte) cf 
the floppy disk. After two bytes are read or written, the CPU 
re-synchronizes with the next ‘byte ready' status from the 
Eloppy disk controller. 


CALL WITH NUMBER OF DATA BYTES TO WRITE IN [A] 


~ea Ne NO 


AND POINTER TO DATA BUFFER IN [H,L] © 


ALL REGS DESTROYED. 

DSKO: MOV C,A ;SAVE # OF BYTES IN C 
MVI A,136 ;CALCULATE NUMBER OF ZEROS TO WRITE 
SUB C ;SUBTRACT THE NUMBER OF DATA erie 
MOV B,A ;NUMBER OF ZERCS+1 
CALL SECGET ; LATENCY 
MVI A,128 ;ENABLE WRITE WITHOUT SPECIAL CURRENT 
OUT 9 

; CALL WITH [B]=NUMBER OF ZEROS [C]=NUMBER OF DATA BYTES 

; AND [H,L] POINTING AT OUTPUT DATA 

OHLDSK: MVTI D,1 ;SETUP A MASK (READY TO WRITE) 
MVI A,128 ;HIGH BIT (D7) ALWAYS ON IN FIRST BYTE 
ORA M 7;OR ON DATA BYTE 
MOV E,A ;SAVE FOR LATER 
INX H ; INCREMENT BUFFER POINTER 

NOTYTD: IN 8 ;GET WRITE DATA READY STATUS 
ANA D ;TEST STATUS BIT 
JNZ NOTYTD ;NOT READY TO WRITE, WAIT 
ADD E ;ADD BYTE WE WANT TO SEND TO ZERO 
OUT 19 7;SEND THE BYTE 
MOV A,M 7GET NEXT BYTE TO SEND 
INX ist ;MOVE BUFFER POINTER AHEAD 
MOV E,M 7;GET NEXT DATA BYTE 
INX H ;MOVE BUFFER POINTER AHEAD AGAIN . 
DCR Cc ;DECREMENT COUNT OF CHARS TO SEND 
JZ ZRLOP ;IF DONE, QUIT & GO TO ZRLOP 
DCR a ;DECREMENT COUNT OF CHARS AGAIN 
our 19 ;SEND THIS BYTE 
“INZ NOTYTD ;STILL MORE CHARS, DO THEM. 

ZRLOP: IN 8 GET READY TO WRITE 
ANA D ;IS IT READY 
JNZ 2RLOP ;IF NOT, LOOP 
OUT 19 ;KEEP SENDING FINAL BYTE 
DCR B ;DECREMENT COUNT OF BYTES TO SEND 
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JNZ ZRLOP ;KEEP WAITING 


EI ;RE-ENABLE INTERRUPTS . 
MVI A,8 .  $#UNLOAD HEAD 

OUT 9 ;SEND COMMAND 

RET ; DONE 


; DISK INPUT ROUTINE. ENTER WITH POINTER 
; OF 137 BYTE BUFFER IN [H,L]. ALL REGS DESTROYED. 


DSKI: CALL SECGET POINT TO RIGHT SECTOR 
MVI Cyi37 ;GET # OF CHARS TO READ 
READOK: IN 8 ;GET DISK STATUS 
ORA A ;READY TO READ BYTE 
JM READOK 
IN - 1g ;READ THE STUFF 
MOV M,A ;SAVE IN BUFFER 
INX B ;BUMP DESTINATION POINTER 
DCR Cc ;LESS CHARS 
JZ RETDO ;IF OUT OF CHARS, RETURN 
DCR Cc ;DECREMENT COUNT OF CHARS 
- NOP ;DELAY INTO NEXT BYTE 
IN 18 ;GET NEXT BYTE 
MOV M,A ;SAVE BYTE IN BUFFER 
INX ist ;MOVE BUFFER POINTER 
JNZ READOK ;IF CHARS STILL LEFT, LOOP BACK 
RETDO: ET ;RE-ENABLE INTERRUPTS 
uw MVI A,8 _ ;UNLOAD HEAD 
* OUT 2 7;SEND COMMAND 
RET 
SECGET: MVI A,4 ;LOAD THE HEAD 
OUT ) 
DI ;DISABLE INTERRUPTS 
SECLP2: IN 9 ;GET SECTOR INFO 
RAR ;FIX UP SECTOR 4 
Jc SECLP2 ;IF NOT, KEEP WAITING 
ANTI Bel 7;GET SECTOR # 
CMP E 7IS IT THE ONE WE WANTED 
JINZ SECLP2 ;TRY TO FIND IT 
RET 


The Disk PROM Bootstrap Loader. 


The Disk Bootstrap Loader PROM must be installed in the 
dNighest position on the PROM board and the PROM board must be 
strapped at the oroper address. The proper onosition is the 
PROM IC socket on the opposite side of the board from the 
Dlack finned heat sink. The black dot or ‘'1l' on the PROM 
should be in the upper left corner. The address jumpers on 
the PROM board must be in the '1' position. 
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To use the Disk Bootstrap Loader, turn the computer's power 
on. Raise RESET and STOP simultaneously. Lower RESET and 
then STOP. EXAMINE location 17749@ (address switches A15-A8 
up, rest down) and then set the sense switches for the 
terminal I/O board as explained in Appendix B. Depress the 
RUN switch. BASIC should print (or display): oa 


MEMORY SIZE? 


For the rest of the initialization procedure, see below. 
Using the Cassette and Paper Tape Bootstraps 


If the Disk Bootstrap Loader PROM is not in use, a paper tane 
or cassette program must be loaded which then reads in BASIC 
from the disk. This is done by following the procedure below: 


1. Key in the apolicable paper tape or cassette bootstrao 


loader from the listings in Avopendix B. Make 
location 2=977 octal. Set the sense switches for the 
terminal. 


2. Start the paper tape or cassette (labeled DISK LOADER) 
reading, and then Start the computer as in the 
instructions for loading BASIC from paper tape from 
cassette as given in Appendix B. 

BASTC should respond: 

MEMORY SIZE? 


For the rest of the initialization procedure, see below. 
Disk Initialization Dialoa 


The initialization dialog has been expanded to allow the user 
to select the voroper amount of memory needed to use the 
disk(s) on the system. After the the MEMORY SIZE question is 
answered, BASIC will ask: 


HIGHEST DISK NUMBER? 


‘The user should answer with the highest physical disk address 


in the system or with a carriage return. The default is 4@. 
Each additional disk uses 49 bytes of memory. 
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Example: 


HIGHEST DISK NUMBER? 1 


BASIC next asks how many files are to be OPEN at one time in 
the program. This number includes both random and sequential 
files. If the user types carriage return, the default is 
zero. Each file allocated requires 138 bytes for buffer 
space. Example: 


HOW MANY FILES? 2 


Finally, BASIC asks how many random files are to be OPEN at 
one time. The amount of memory allocated is the answer*257. 
This memory space is used to keep track of the location on the 
floppy disk where groups of a random file reside. Thus, the 
total memory required for each random file is 138+257=395 
bytes. Example: 


HOW MANY RANDOM FILES? 1 
A typical dialog might appear as follows: 


MEMORY SIZE? <carriage return> 

HIGHEST DISK NUMBER? <carriage return> 

HOW MANY FILES? 2 <carriage return> 

HOW MANY RANDOM FILES? 1 <carriage return> 


XX¥xXXxX BYTES FREE 

ALTAIR BASIC REV. 4.9 

(DISK EXTENDED VERSION] 
COPYRIGHT 1976 BY MITS INC. 


OK 
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APPENDIX I 


THE PIP UTILITY PROGRAM 


A BASIC Utility program has been provided to perform such such 
common functions as printing directories, initializing disks, 
copying disks etc. 


NOTE 


Some of the PIP commands (LIS, DIR) require that one 
<file mumber> be configured during the Disk BASIC 
initialization dialog. This is done by answering the 
“HOW MANY FILES?“ question with a value greater than 
zero. If an attempt is made to perform a LIS or DIR 
without following this procedure, a BAD FILE NUMBER 
error will occur. 


Once the BASIC disk has been mounted, type the following 
command: 


RUN “PIP“<carriage return> 
‘(PIP will type) 
* 


PIP is now ready to accept commands. To exit PIP, type a 
carriage return to the prompt asterisk. To initialize the 
floppy disk in drive g, type: 


*INIG 


PIP will type “DONE“ when it is finished. Any disk number may 
be substituted for the @ in the above command and PIP will 
format the disk in that drive. Any orevious files on the disk 
initialized will be lost. If you wish to use blank disks with 
Disk BASIC, they must be initialized in this fashion before 
they can be MOUNTed. 


NOTE 


DO NOT INITIALIZE THE DISK WITH DISK EXTENDED BASIC ON 
IT. THIS WILL WIPE OUT ALL THE FILES PROVIDED ON THE 
DISK. 
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Printing a Directory 


Giving PIP the command: 

*DIR<disk number> 
Prints out a directory of the files on the specified disk. 
The name of each file is printed along with the file's "mode" 
(S for sequential, R for random) and the starting track and 
sector number of the first block in the file. — 

SRT<disk number> 


prints a sorted directory of the files on the specified disk. 
LISting Sequential Files 


The LIS command is used to list the contents of a sequential 
data file on the terminal: 
Syntax: 
LIS<disk number>,<file name> 
Example: 


*LISG@,PIPA user types 
7 CLEAR 1066 computer orints 


CcOPying Disks 


The COP command is used to copy a disk placed in one drive to 
a disk on another drive. Neither disk need be MOUNTed for the 
COP command to work properly. 


‘Syntax: 


COP<old disk number>,<new disk number> 


t- 
ho 
oO 
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Before the copy is done, PIP verifies the action by printing 
the following massage: 


FROM<disk number>TO<disk number> 


Typing Y followed by a carriage return causes execution to 
proceed. Any other response aborts the command. Example: 


*COPG,1 


FROM 9 TO 1? Y<carriage return> 
DONE 
* 


The DAT command 
The DAT command is used to dump out a varticular sector of the 
disk in octal. 
Syntax: 
DAT<disk number> 


When the DAT command is issued, PIP asks for the numbers of 
the track and sector to be dumped. Example: 


*DATO ' (DAT is equivalent) 
TRACK? 9@ 

SECTOR? @ 

000 800 BOG B29 G90 GOH BIB Bag 

G86 929 829 9099 BEG etc. 


The CNV command 


“CNV converts disks written under Altair BASIC version 3.4 and 
3.3 to a format useable by version 4.@. The format of the 
command is as follows: 

CNV<disk number> 
CNV makes sure that the next to last byte of each sector is 
255. 


Other Programs Provided on the System Disk 
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Program Name Use 
STARTREK Plays game based on TV series. 
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APPENDIX J 


RSTLESS VERSIONS OF BASIC 


Altair BASIC uses the so-called RST locations (locations 
@ through 198 octal) at the bottom of memory. This saves 
memory space, but precludes the use of the Vector Interrupt 
board for real-time programming applications. Special. 
versions of Altair BASIC are available which do not use the 
RST locations, however. These versions leave the RST 
locations free to be used for assembly language routines in 
the same was as any other locations in high memory. 


_ To restart the standard versions of Altair BASIC, it is 
necessary simply to actuate the RESET switch on the computer's 
front panel. This causes a jump to location 4@. In the 
RSTLESS version, BASIC is restarted by jumping to location 199 
octal. The usual procedure for doing this is as follows: 

1. Raise STOP and RESET simultaneously, then release them 
2. Raise switch A6 

3. Actuate EXAMINE 

4. Push RUN 


BASIC restarts and prints “OK.” 
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APPENDIX K 


USING Altair BASIC ON THE 


meet eee eS “tetincnateeN eS 


This appendix covers procedures for loading and operating 
Altair BASIC on Intellec and MDS development systems. 


A. Loading BASIC. 


To load Altair BASIC, put the hex paver tape of 3ASIC in 
the system reader device. Enter the System and assign the 
CONSOLE I/O device as desired (see Section 4.2.1 of the 
Intellec 8/Mod 88 Operator's Manual). Now read in BASIC with 
the following R command. 


»R(Cr) 


The BASIC tape will be loaded into memory, and the system 
monitor will type a period on the CONSOLE device. If you are 
only using contiguous RAM memory below the system monitor 
(3800H) or are using BASIC on a MDS System, proceed to step 2. 
Tf you have RAM memory above the PROM Intellec monitor which 
you wish BASIC to use for program and variable storage, you 
must patch the two locations known as INTLOC to point to the 
bottom (lowest address) of memory. The is most easily 
accomplished by using the System Monitor S$ command. INTLOC is 
given below under “Memory Requirements.” 


eSXXXX 96 49 (Cr) 


The above S command would make INTLOC point to RAM, starting 
at 16K. 


NOTE 


If you are using RAM above 16K for program and 
variable storage and have patched INTLOC, retain all 
the math functions at initialization time (see 
Appendix 8). Essentiallv, this means that the WANT 
SIN-COS-TAN~ATN? questions asked by BASIC's 
initialization dialog should be answered by a Y¥(Cr). 
Also, you must answer the MEMORY SIZE? question with 
the highest decimal or RAM address in your system. 
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Start BASIC by giving the monitor GOTO command. 


-G@908<carriage return> 


NOTE 


Once BASIC has. been started, it may always be 
restarted by depressing the RESET switch on the 
Intellec 8 console. 


When BASIC types MEMORY SIZE?, typing carriage return will 
cause BASIC to use all the RAM memory it can find above the 
end of BASIC. Otherwise, if you wish to specify an exact 
amount of memory, type the decimal address of the highest byte 
of memory in the computer and type carriage return. 


B. BASIC I/O. 


The system devices used for terminal I/O in BASIC are CI, 
CO and CSTS. ; 


C. Saving and Loading Programs. 


To save a vorogram on paper tape, re-enter the PROM 


“monitor and reassign the CO device to the paper tape punch or 
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other output device. Then restart BASIC by using the G89G9 
command and type LIST(Cr). The characters of the LIST command 
will not be echoed, but the BASIC program currently saved in 
memory will be put on the output device. 


To load a program, enter the system monitor, re~assign CI 
to the input device where the program resides, and then start 
BASIC with a GO@969. When the program has been completely read 
in, reassign CI to the user console. Then re-enter BASIC with 
a GO990, and start the I/O device. The vorogram will be echoed 
on CO as it is read in. : 


D. Memory Requirements 


BASIC uses locations @999H-@003H and 4%919H-approximately 
19DFH in the 8K version, and §@18H-2FG@EH in the Extended 
version. For Intellec 8K and MDS 8K BASICs, INTLOC is 6529 


decimal. For MDS Extended, INTLOC is 14257 decimal. 


E. Calling Assembly Language Routines 


USRLOC for 8K BASIC is 9@55H. ADR(DEINT) is stored in 
locations §9643H. ADR(GIVACF) is stored in location 9@45H. In 
the Extended version, these locations contain the addresses of 
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FRCINT and MAKINT, respectively. Interrupt driven subroutines 
using RST 7 are not allowed in the [Intellec/MDS version of 
Altair BASIC. See Appendix C for further information on 
calling assembly language subroutines. 


* Intellec is a registered trademark of the Intel 
Corporation. : 
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APPENDIX L 


PATCHING BASIC’S I/O ROUTINES 


BASIC's 
non-standard 


to a list 


addre 


routines of BASIC: 


ORG 
DW 


IOLST: DW 


TRYOUT: IN 


TRYIN: IN 


7Q1 
IOLST 


TRYIN 

TRYOUT 
ISCNTC 
NEWSTT 


IN2SIO 
IN4PIO 
LPTPOS 


LPT3CD 
ENDLPT 
IOCHNEL 


7) 

298 
TRYOUT 
PSW 

1 

PSW 


PSW 


I/O routines may 
terminal 


be changed to accommodate 


equipment. After BASIC is loaded and 
before it has been initialized, 


location 71 contains a pointer 


sses. These addresses contain the I/O 


;TWO BYTE ADDRESS OF ADDRESS LIST 


;CHARACTER INPUT ROUTINE 

;ADDRESS OF OUTPUT ROUTINE 

;POLL FOR CONTROL/C CHECK 

;FAST POLL FOR CONTROL/C CHECK 

78K AND LARGER ONLY | 

;ADDRESS OF INITIALIZATION 

;ROUTINE FOR 2SIO BOARDS 

;ADDRESS OF INITIALIZATION ROUTINE FOR 
;4PTO BOARDS 

;ADDRESS OF LPT CODE FLAGS 


;START OF LPT CODE 

;END OF UPT CODE 

;ADDRESS OF I/O RESET LOCATION 
7 (IN EXTENDED AND BISK ONLY) 


;GET DEVICE STATUS 

;AND OFF BIT 7 

;WAIT UNTIL TERMINAL CAN OUTPUT 
;GET CHARACTER TO OUTPUT OFF STACK 
;TRANSMIT IT 

;SAVE CHARACTER BACK ‘ON STACK 
;CHANGED TO "IN 41" FOR 4PIO BOARDS 


;GET CHARACTER BACK OFF STACK 
;ALL DONE WITH CHARACTER OUTPUT ROUTINE 


;GET TERMINAL STATUS 


. ;CHARACTER READY? 


;NO, KEEP WAITING 
;READ IN THE CHARACTER 
;GET RID OF PARITY BIT 
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“CPI CONTO | ; CONTROL /O? 


RNZ ;RETURN IF NOT 
ISCNTC: IN g ; ;READ TERMINAL STATUS 
ANT Li ;HAS THE TERMINAL A CHARACTER 
7;TO SEND? 
RNZ ;NO, RETURN 


7;FOLL OWING ROUTINE IS IN 8K AND LARGER VERSIONS ONLY 
;AND IS EXECUTED FOR EACH STATEMENT 


NEWSTT: IN 4) ;READ TERMINAL STATUS 

ANT 4 ;TEST BIT § 

CZ CNTCCN 7YES, SEE If CHARACTER CONTROL/C 
IN2SIO: CPI 2*4 2. iS: 12'-2810 

RNC . ;NO, OTHER GO DIRECTLY TO SETIO 

ADI 21 ;GET PROPER INITIALIZATION BYTE 

PUSH PSW ;SAVE IT 

MVI A,3 ; INITIALIZE THE 2SIO 

CALL DOTO29 

POP PSW ;GET BACK SECOND INITIALIZATION BYTE 

JMP DOTO26 ;PROGRAM TO DATA AND STOP BITS 
IN4PIO: MVI A,540 ;RESET FOR DATA TRANSFER 

DCR M ; CHANNEL=22 


CALL DOIO249 


The pointers LPTPOS, LPTCD3 and ENDLPT refer to the 
following sections of lineprinter code: 


‘A. LPT code flags. 


LPTLST: DB g ;9 MEANS LAST LPT OPERATION 
;WAS LINE FEED 
;1 MEANS LAST LPT OP'N WAS PRINT 
LPTPOS: DB g ;CURRENT LOGICAL POSITION OF LPT HEAD 
PRTFLG: DB 4) 79 MEANS OUTPUT TO CONSOLE 
71 MEANS OUTPUT TO LPT 
72 MEANS LLIST OUTPUT TO LPT 


ae 
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QPOS: DB Gg *CURRENT Q790 PRINT HEAD POSITION 
DB v) ;IN 1/126 INCH INCREMENTS 
QMOV: DB i) ;NUMBER OF INCREMENTS TO MOVE Q79 


;PRINT HEAD IN ADDITION TO CHARACTER 
;MAX. NUMBER OF LPT COLUMNS 

;COLUMN BEYOND WHICH THERE.ARE NO MORE 
;"COMMA FIELDS" 


LPTLEN: DB 
NLPPOS: DB 


Aa 


A comma in a LPRINT statement causes the printhead to move to 
the beginning of the next 14 column field. If LPTPOS is 
greater than NLPPOS, a carriage return line feed sequence is 
executed before printing. NLPPOS is calculated by the 
following relation: 


NLPPOS=INT ( ( (LPTLEN/14) -1) *14) 


LPTLST is used only by the 89LP printer. QPOS and QMOV 
are used only by the Q79. The user should not modify the 
PRTFLG flag since it is modified and referred to in several 
places in BASIC. Changing it in a USR routine has 
unpredictable results. 


B. Start of LPT code. 


LPT3CD: JMP FINLPT 
JMP PRINTW 


* 


body of LPT code 


The main body of LPT code is entered whenever PRTFLG is 
determined to be non-zero. The character to be output must be 
at the top of the stack. Upon exit from LPT code, the 
character must be removed from the stack and should be loaded 
into the Accumulator. This is because BASIC checks the 
Accumulator for the last character printed. 


FINLPT is entered whenever BASIC returns to command 
level. FINLPT calls PRINTW for a carriage return/line feed 
sequence, if necessary, and resets PRIFLG to zero. 


PRINTW does the carriage return/line feed. 


FINLPT and PRINTW both return with zero loaded in the 
Accumulator and all the condition codes set to zero. 
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C. End of LPT code 


ENDLPT is the ohysical end of the linevrinter driver 
code. 


The following routines are used in with all terminal 


devices: 
TOCHNL: @ ;DEPOSIT BOARD TYPE HERE 
@ ;CHANNEL GETS DEPOSITED HERE. 
IOREST: LXI H, IOCHNL sGRAB POINTER TO IT 
CALL HELPIO ;SET UP THE NEW CONSOLE DEVICE 
CALL STKINI ;MAKE STACK OK 
_JMP READY sAND TYPE “OK" HOPEFULLY ON GOOD CONSOL 


To modify the I/O routines, stop the machine after 
loading BASIC and insert the changes using the front panel 
Switches, or read in a tape containing the. patches. Restart 
BASIC at location zero with all sense switches up. This will 
prevent BASIC from modifying the I/O routines. In general, 

these guidelines should be followed in writing I/O routines: 


1. Insert a JMP at TRYOUT to the custom output routine. Be 
sure the PSW that is saved on the stack when the routine 
is entered is preserved. Make sure all registers are left 
unchanged when the routine is exited. 


2. Insert a JMP at TRYIN to the custom input routine. Return 
the input character in the A register and do not change 
any of the other registers. The PSW may be changed. 


3. To modify ISCNTC, insert a CALL to the custom poll 
routine. This routine returns a non-zero condition code 
setting if no character is present and zero if a character 
is present. The A register and the condition codes may be 
changed. 


4, fo change the initialization of the 2SIO board, change the 
“ADT 23Q" tO “MVI A,XXX" where XXX is the new 
initialization byte. 


5. To change the initialization of the 4PIO board, change the 
“"MVI A,540" to a “MVI A,XXX"“ where XXX is the new 
initialization byte. 


6. To patch in a new line orinter driver, change the code at 
LPT OD: ; 1-bpy—the—routine— 
Laqge-setnin Tine feed. The code at 
Coren and LPTCD3 must be chanted-if the line printer is 
@ characters wide. 
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7. To recover from an incorrect CONSOLE command, deposit the 
board type in IOCHNL, the board type in IOCHNL+1, and 
“start the machine at IOCHNL+2. — 


Patching Disk BASIC ~- the PTD program. 


After Disk BASIC is loaded, deposit the desired patches 
in memory. Then examine and run PTD at location 54999 octal. 
After two or three seconds, the patched version of BASIC will 
be saved on disk. The save is complete when the Disk Enable 


light on disk drive zero goes out. 


To save a patched version of BASIC on a disk which did 
not previously contain release 4.9 Altair BASIC, track 9 must 
be copied from a 4.9 disk. 


PTD may also be used to save programs other than BASIC on 
tracks 6-4 of a diskette by loading the program after BASIC is 
loaded and running PTD. All memory locations between 9g and 
46009 octal will be saved on tracks @-4 on diskette zero. 
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APPENDIX M 
USING ALTAIR DISK BASIC 
An Example 


The following is a discussion of how to program a typical 
application in BASIC. The example is the MITS in-house 
inventory system which is designed to run on the followina 
hardware: 


Altair 886@b computer with 32K memory, PROM memory board 
with the Disk PROM Bootstrap loader and a 2SIO serial 
I/O board 

Two disk drives 

24-line Lear-Sigler CRT terminal 

Line printer 


The most important part of the design for an application 
is setting up the files. Files that are correctly set up will. 
be easy to use and maintain. Poorly set up files will be a 
perpetual headache, causing either an eventual rewrite or, 
more likely, abandonment of the system. 


The first listing at the end of the appendix, INVEN, 
contains modules from the main proaram in the inventory 
system. INVEN shows how the central file (a random file) in 
the system is set up and how it is handled. The INVEN listing 
also shows the use of another random file and a sequential 
file. The CALC listing shows how to read programs as data 
files. CODE1 is a partial listing of a program that will be 
read as a data file. 


The INVEN modules listed were included to show the 
following features: : 


1. program startup initialization and comments about the 
files used bv the program (lines 1-35) 


2. what the complete orogram does (lines 69-1999) 


3. an example of how to modify records in a random file 
{lines 990-1949) 

4. an example of how sequential files are used (lines 
1808-1868 and 2796-2829) 


5. one approach to the problem of handling a random file that 
spans more than one disk (lines 2099-2939) 
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6. three subroutines (lines 349-349, 94899-9929 and 92699-9229) 
that are called by the INVEN modules. 


The function FNY (line 6) is used to round dollar 
amounts to thousandths of a cent. FNQ (line 7) is used to 
round quantities to thousandths and to convert single 
precision amounts to double precision. 


INV3 is fielded once in the program initialization, but 
INV1 and. INV2 are repeatedly fielded by calls to the 
Subroutine at line 2049. The IF F>255 (line 68) avoids the 
possibility that the program can be stopped by an illegal 
function call at line 6l. 


PUT statements are the very last statements executed in 
the Remove from Inventory module, the Add to Inventory module, 
ete. This prevents updating one file but not the other. 
(This could hapoen if PUT Z, Rl was at line 1919.) 


Line 2999 sets Z to 1 and Rl to N if the item wanted, WN, 
is less than 2991. It sets Z to 2 and R1 to N-2909 if the 
item wanted is greater than 2900. Line 2926 then sets the 
pointers for the variables in the field statement to point 
into either the buffer for INV1l or the buffer for INV2, 
depending on whether the item wanted is less than 2901 or 
greater than 2009. 


The CALC listing is a program which determines if there 
are enough parts in inventory to meet projected demands. Line 
60 waits while the disk comes up to speed so the message 
“ENABLE DISK 1" will not be printed on the terminal. Lines 
169-146 input up to fifty different voroduct codes and the 
number of each product to be built. Line 178 opens a file for 
each product that contains the parts required for the product. 
Lines 220-250 build up a report heading, extracting the 
product description contained in line 18 of each file. 


Lines 120-150 accumulate the number of parts required for 
each product into the array Q. If more than 32767 of a part 
is required, a pointer is set in the array Q and the number of 
the vart is accumulated in the array Q!. This maneuvering is 
necessary since the system does not have enough memory to 
dimension Q as single precision instead of integer. 


The parts lists for a product are programs saved with the 


A option. Since they are programs, their maintenance is very 


easy. For example, suppose that part 1871 in the 88@9b is too 
Marginal and that from now on ovart 1173 should be used 
instead. With the parts lists disk mounted on drive 98, the 
following sequence will update the 8890b file: 
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LOAD “CODE1" 
168,1,1173 
SAVE “CODE1",9,A 


The programmer who is cramped for memory will find that 
Programs can still be documented adequately if comments are 
set up as separate files. The memory used for variables when 
a program runs can be used for comments if the comments are 
merged in when the program is to be listed. Alternatively, 
the program could be listed in two or more parts. Additional 
memory can be obtained by bringing BASIC up without optional 
functions and with no files. 


The main inventory program is set up so that a carriage 
return typed in response to any prompt causes the program to 
dump the function descriptions on the CRT and to return to the 
FUNCTION NUMBER prompt. If the proqram were to be run on a> 
printing terminal, instead of a 9699 baud CRT, it would not be 
set up to print the descriptions every time the overator 
wanted to get back to the FUNCTION NUMBER prompt. The list of 
function descriptions might be taped on the wall next to the 
terminal instead. 


Listing of INVEN 


DEPINT F-N 
DEFINT R 

DEFINT Z 

DEFDBL P 

DEF FNY# (Q8#) =INT(Q84*A#+.54) /A# 

DEF FNQ# (Q9!)=INT(VAL(STRS (Q9!) ) *19004+.54)/19904% 
AS=MKDS (9) :BS=MKSS (9) :A#=19909a2 

19 DIM QS$(2),PS$(2) 

11% 


oJ OV UT Ww pl 


INV1 ON DRIVE 9 HOLDS ITEMS 1-2909 
INV2 ON DRIVE 1 HOLDS ITEMS 2901-4999 
INV3 ON DRIVE 1 HOLDS SUMS LOGGED IN AND OUT BY DEPARTMENT 
La. 
WEKLYRST AND MONTHRST ARE WRITTEN WHILE THE WEEKLY, 
MONTHLY ACTIVE ITEMS LISTS ARE PRINTING; 
CONTAIN THE ITEM #S THAT NEED TO BE RESET; AND ARE READ BY 
ara WEEKLY,MONTHLY RESETS. 
4 t 
Q$() <=> THREE ON HAND QTY FOR: P$() <=> THREE PRICES 
[P(9) OLDEST, P(1) NEXT OLDEST, Q(8@)<>@ IP Q(1)<>@, 
Q(1)<>@ IF Q(2)<>g] 
ae <=> DESCRIPTION LEFTS (D$,3)="S$S$" <=> INACTVE ITEM # 
= Ole 
I1l$S <=> WEEKLY QTY IN 
I2$3 <=> MONTHLY QTY IN 
OlS <=> WEEKLY QTY OUT 
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02$ 
T$ 

DI1 
ID2 
DO1 
OD2 
17 

DT1 
DxX2 
DG1l 
DY2 


29 
30 
32 
35 
69 
61 


340 


89G 


* 


F=6 


* 


<=> MONTHLY QTY OUT 
<=> REORDER LEVEL 


$ <=> WEEKLY $ IN 

$ <=> MONTHLY $ IN 

$ <=> WEEKLY $ OUT 

$ <=> MONTHLY $ OUT 

: ’ 

$ <=> WEEKLY DEPT $ TAKEN 
$ <=> MONTHLY DEPT $ TAKEN 
$ <=> WEEKLY DEPT $ GIVEN 
$ <=> MONTHLY DEPT $ GIVEN 


OPEN "R",#1,"“INV1" 

OPEN “R",#2,"INV2",1 

OPEN “R",#3,"INV3",1 

FIELD #3,8 AS DT1$,8 AS DX2$,8 AS DG1S,8 AS DY2$ 
PRINT: F=9:INPUT"FUNCTION NUMBER";F:IFF>255THEN63 
ON F GOTO 219,359,359,1900,600,909,1709, 
2709,2504,2309,2400,1889,2998G' 


2 3 4 5 6 7 8 9 48.-1r a2 13 

14 15 16 

PRINT“1 ~- ENTER NEW ITEM" 

PRINT"2 - LIST ITEM ON CRT (SHORT FORM)" 

PRINT"3 - LIST ITEM ON CRT (LONG FORM) “ 

PRINT"4 - PRINT ITEMS ON LINE PRINTER 

PRINT'5 -—- ADD TO INVENTORY" 

PRINT"6 - REMOVE FROM INVENTORY" 

PRINT"7 - PRINT WEEKLY DEPT DOLLAR RECORD ON LINE PRINTER 
PRINT"8 PRINT. WEEKLY ACTIVE ITEMS LIST ON LINE PRINTER 
PRINT"9 - WEEKLY RESET 

PRINT" 1G—- PRINT MONTHLY DEPT DOLLAR RECORD ON LINE PRINTER 
PRINT“l1l-~ PRINT MONTHLY ACTIVE ITEMS LIST ON LINE PRINTER 
PRINT“ 12- MONTHLY RESET 

PRINT"13- RESET ORDER LEVELS 

PRINT“ 14— PRINT LISTNG OF ITEMS NEEDING TO BE RE-ORDERED 
PRINT"15- DELETE OLD ITEM 

PRINT" 16- ERRORS BACKOUT 


GOTO6G 
' 


- INPUT PART # & GET RECORD 


PRINT: PRINT:N=9: INPUT" PART NUMBER“ ;N:IFN<1THENRETURN 


IFN>4Q00@THENPRINT:PRINT"''# TOO HIGH''":GOTO 399 


GOSUB29409:GETZ,RI1 
IFLEFTS$ (D$,3) ="SSS“THENPRINT: 

PRINT“ ''NO INFORMATION ON PART''";N:GOTO399 
RETURN 


- REMOVE FROM INVENTORY 
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909 GOSUB390:IFN=9GOT0O63 
929 DN=-l:INPUT"NUMBER OF ITEMS REMOVED FROM INVENTORY"; 
DN: IFDN=-1THEN63 
958 IFCVS(Q$ (9) )+CVS(QS (1) ) +CVS (QS (2) )<DNTHENPRINT" 
ATTEMPT TO REMOVE MORE THAN ON HAND": PRINT: GOTO63 
960 DO@=DN: P=g- 
979 IFD®<CVS(Q$ (9) ) THEN 7 
P=P+FNQ# (D@) *CVD (PS (9) ) : LSETQS (9) =MKSS (CVS (QS (G))-DG) :” 
GOTO1980 
980 P=P+FNO# (CVS (Q$(G))) *CVD(PS (2) ) sDG=DA-CVS(QS(B)): 
LSETQS (%) =Q$ (1) : LSETQS (1) =O$ (2) : LSETQS (2) =BS: 
LSETPS (@) =P$ (1) :LSETPS (1) =P$ (2) :LSETPS (2) =AS: LFDGTHEN 
GOTO97G 
1899 LSETO1S=MKSS (CVS (01S) +DN) : LSETO2S=MKSS (CVS (02$)+DN) ; 
LSETDOLS=MKD$ (CVD (DO1S) +P) :LSETOD2S=MKDS (CVD (OD2$) +P) 
1920 GOSUB920@:IFC%=-1GOTO63 
1939 LSETDT1S=MKD$ (CVD (DT1$) +P) : LSETDX2S=MKDS$ (CVD (DX2$) +P) 
1949 PUT3,C%:PUTZ,R1:GOTOSGG 
1790 ' . 
* 


P=9 - WEEKLY RESET 
x 


189@ PRINT“ 7 - WEEKLY DEPARTMENT RECORD 

1892 PRINT“8 - WEEKLY ACTIVE ITEMS 

1804 ZS="“:INPUT"HAVE THE ASOVE BEEN LISTED FOR TODAY";7Z$ 

1819 IFLEFTS (2$,1)<>°Y"THENPRINT: PRINT 
“WEEKLY RESET NOT PERFORMED" :GOTO63 

1843 OPEN"I",4,"WEKLYRST" 

1845 IFEOF (4) THENCLOSE4: KILL"WEKLYRST" :GOTO1862 

185@ INPUT#4,N:IF 1<=NANDN<=4990 THENGOSUB2999:GETZ,RI1 
ELSEPRINTN;"OUT OF BOUNDS. RESET ABORTED."“:END 

1855 LSETIIS=BS:LSETO1S=BS:LSETDI1S=A$:LSETDO1S=AS:PUTZ,R1 

1869 GOTO1845 

1862 FORI=1T020 

1864 GET3,1I:LSETDT1S=A$ : LSETDG1S=AS: PUT3,I 

1866 NEXT 

1868 GOTO6G 

BE: be: aed 

k 


SUB - GET Z,R1 FOR N AND FIELD TO INV1,2 
* 


2906 2=1-(N>2690) :RI=N+(Z=2) *2090 
2020 FIELD 2,4 AS Q$(9),4 AS Q$(1),4 AS O$(2), 8 AS PS(G), 
8 AS PS(1),8 AS P$(2),48 AS DS,4 AS I1$,4 AS 12S, 
4 AS O1$,4 AS 02$,8 AS DI1$,8 AS ID2$,8 AS DO1S,8 AS OD2S$ 
2039 RETURN 
2699 ' 


x 
F=8,11 - WEEKLY,MONTHLY ACTIVE ITEMS LIST 
*& . * 


2700 N=1:GOSUB2999:GOSUB2855 
2703 IFF=8THENOPEN“O",4, “WEKLYRST"ELSEOPEN"0O",4, “MONTHRST" 
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2705 IT#=0:OT#=0:TT#=G 

2719 FORI=1T02000 — 

2720 GETZ,I:IFLEFTS (D$,3)="SSS"“THEN2899 

2723 QG=CVS (QS (G)) s:QL=CVS (Q$ (1) ) :Q2=CVS (QS (2) ) 

2725 IFF=8THENI!=CVS(I1S) :0!=CVS(O1S) :I1#=CVD(DI1S) :0#=CVD(DO1$) 

ELSEL!=CVS (12S) :O0!=CVS (02S) :I#= CVD (ID2S) :04= CVD (OD2$) — 

2727 TT#=TT#+CVD (PS (9) ) *QG+CVD (PS (1) ) *QL+CVD (PS (2) ) *Q2 # 
2730 IFI!+0!=@THEN289@ 

2733 PRINT#4,N+I-1 

2735 IT#=IT#H#+14 :OT#=OT#+04 

2749 IFLO>S59ANDKK=9THENGOSUB285¢ 

2750 LPRINTUSINGF#HFeH" - 99999 !L+N+T1; 

2770 LPRINTUSING"##,#44 , #43 "31!,0! ,QG+014+02,Q9+01+Q2+0!-T! 
278G LPRINTUSING"SS ,##4,7## #3" ;L#,OF 

2798 LO=LIt+1 

2795 KK=KK+1: IFKK=5THENLPRINT: LO=L9+1: KK=0 
2892 NEXT 

2819 IFN=1THENN=2041:GOSUB29@4 :GOTO2719 

2811 CLOSE4 

2813 LPRINT:LPRINTUSING"TOTAL INVENTORY COST =SS#4,4#%,43#%.#%";TT# 
2815 REM *GOTO2829 IN F=7, 190 

2826 LPRINT : LPRINTUSING" TOTAL IN = $S#4,434,#44 .¢¢" ;IT# 
2839 LPRINTUSING"TOTAL OUT =SS##,4## ,44#4.##" ;OT# 

2837 LPRINT:LPRINT 

2849 GOTO5H 

2850 FORJ=L9TO66:LPRINT:NEXT 

2855 IFF=8THENLPRINT" WEEKLY"; :ELSELPRINT" MONTHLY"; 

2869 LPRINT” ACTIVE ITEMS LIST“; :GOSUB9990 

2865 LPRINTTAB (39); “STARTED” z 
2878 LPRINT"“ITEM # QTY-IN QTY-OUT ON-HAND MO-WITH 

DOLLARS-IN DOLLARS-OUT" 

2889 LPRINT:KK=0:L9=6:RETURN 

g899¢ ' 

x % 

SUB - PRINT TODAY'S DATE 

* 

99000 IFTDS=""THENLINEINPUT"TODAY'S DATE ?";TDS:IFTDS=“"“THEN63 
99149 LPRINT" "“;TDS 

$915 LPRINT 

9922 RETURN 

9199 ' 

* 


INPUT DEPARTMENT # AND GET TOTALS 
% % 
9209 C%=-1L:INPUT"ENTER DEPARTMENT CODE";C%:IFC%=-1THENRETURN | 
9219 IF1<=CSANDC%<=28THENGET3 ,C3:RETURN 
9220 PRINT“ INVALID CODE“ :GOTO9299 
Listing of CODE] 
a 


5 CODE 
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18 

26 

99 

198 
119 
129 
136 
149 
15d 
166 
170 
186 
19g 
209 


18 
29 
38 
4g 
58 
69 
96 
95 


PARTS LIST FOR: 88008 
OCT 39,1976 
REM THIS IS THE START OF DATA 
,11,1042 
7371134 
14,1949 
71,182 
71,1921 
71,1824 
71,1071 
11,1974 
71,2195 
124,348 
12,326 


Listing of CALC 


CLEAR69@ 

DEFINT A-Z 

DIM CN(49) ,NU(49) ,Q(490B) ,O! (249) 

CLOSE:UNLOAD1 

INPUT"PLACE DISK WITH PARTS LISTS IN DRIVE 1. HIT RETURN";GS$ 

FORK !=1T05999:NEXT:MOUNTL | 
LINEINPUT" TODAY'S MO/DA/YR “;DT$:H4$(G)=DTS+" PARTS AVAILABLE FOR:" 
t 


INPUT QUANTITY OF EACH PRODUCT REQUIRED 


kK 
106 
113 
129 


136 
149 
145 
ACC 
Ke 
15d 
166 
176 
180 
196 
296 
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INPUT"CODE NUMBER(@ WHEN FINISHED) “;CN(T) 

IF CN(I)=9 THEN 159 

IF CN(I)<1l OR SO<CN(I) THEN PRINT“ INVALID CODE NUMBER"; 
GOTO 19¢ 

INPUT“NUMBER OF UNITS TO BE MADE";NU (I) 


I=I+1l:IF I<56 THEN 199 
UMULATE QUANTITY OF EACH PART REQUIRED 
#* 

FOR K=9 TO I-1 

ONERRORGOTO619 
OPEN"I",#1,"CODE"+MIDS (STRS (CN(K)),2),1 
ONERRORGOTOG 


LINEINPUT#1,AS:IPAS=""THEN1OG 

IFLEFTS (AS,3)="99 “THEN269 

IPLEFTS (AS,3)<>"19 “THEN199 
IFKTHENHS (HK) =HS (HK) +," 

HHS=STRS$ (NU (K) ) +STRS (CN(K) ) +"=(“+MIDS (AS,20)+") * 
IFLEN (HHS) +LEN (HS (HK) ) >72THENHK=HK+1 

HS (HK) =HS$ (8K) +HHS:GOTO19@ 

ONERRORGOTO639 

IFEOF (1) THEN3196 

INPUT #1,A,QN,PN 

ITFQ (PN) <9THENQ! (-Q(PN) ) =O! (-Q(PN))+NU(K) *ON 


oe 
He 
w 
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_ ELSEQ (PN) =Q (PN) +NU (K) *ON 

390 GOTO274 | 

31@ ONERRORGOTOG:CLOSE 1:NEXT & 

315 ' 

GET SECOND HALF OF INVENTORY BACK ON LINE 

keKKK 

328 CLOSE: UNLOADL 

339 INPUT" 

PLACE INVENTORY DISK #1 IN DRIVE 1. HIT RETURN TO START REPORT" ;G$ 

349 FORI!=1T05900:NEXT:MOUNT1 

360 OPEN"R",#2,"INV1" 

370 FIELD #2,4 AS Q1$,4 AS Q2$,4 AS Q3$,24 AS G$,40 AS DS 

375 ' 

PRINT REPORT 

KKKKK 

388 GOSUB579 : 

399 FOR I=1 TO 4900 

469 IF Q(I)=0 THEN 530 

419 QQ!=Q(I) :IFQ(1I) <@THENQQ!=Q! (-Q(I)) 

420 IFL9>59ANDKK=9THENGOSUB560 

430 L9=L9+1 

448 RN=I 

450 IFI<2000THEN46@ELSERN=RN~-2000 : IPPLAG=0THEN 
CLOSE2:OPEN"R",#2,"INV2",1:FLAG=1: 

FIELD#2,4 AS Q1$,4 AS Q2$,4 AS Q3$,24 AS G$,4G AS DS 

460 GET #2,RN . 

479 IFLEFTS (D$,3)="$$S"THENLPRINTI+199000!; 
kakkekA ER NO INFORMATION ON PART ***##eeRH: ; 
LPRINTUSING" #4, ##4#4##" ;0Q! :GOTO529 

480 QH!=CVS(Q1$) +CVS (Q2$) +CVS(Q3$) :QD!=QH!-00! 

500 LPRINTI+190000!;DS;" “; 

519 LPRINT USING “##4,#t####" ;QQ1;QH!;QD! 

529 KK=KK+1: 1FKK=STHENKK=9 : LPRINT: L9=L9+1 

539 NEXTI:CLOSE: END 

56@ FORK=L9T066:LPRINT: NEXT 

565 ' 

PRINT PAGE HEADING 

RKRKS 

570 FORK=9TOHK : LPRINTHS (K) :NEXT 

589 LPRINT:LPRINTTAB(52);"NEEDED ON HAND EXCESS":LPRINT 

599 KK=@:L9=5+HK:RETURN | 

605 | 

TRAP ROUTINE: BAD CODE NUMBER 


kEKKK 


610 IFERR=53THENPRINT:PRINT"NO CODE";MID$ (STRS (CN(K)),2);“ PILE" 


628 ONERRORGOTOG 


O205-" 


TRAP ROUTINE: ACCUMULATE INTO Q OVERFLOWED 
KRAKKK 


630 IFERR<>60RERL<> 299 THENONERRORGOTOG 
640 NOQ=NO+1:0! (NO) =Q (PN) +NU (K) *ON:Q (3N) =-NQ 
679 RESUME27@ 
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Functions, string « % «.<-. « 32 
Functions, user-defined ... 28 


GET e ° e e ° e ° . s a ° e s 62 
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MAKINT .. 
MERGE .. 
MIDS .. . 
MIDS functi 
MKD$ .. .- 
MKIS .. . 
MKSS .. . 
MOD operato 
MOUNT .. 


NAME... 
NEW . 6 « 
NEW in disk 
NEXT ve 
NOT ... 
NULL... 


OCTS: <4. <8 


Octal constants 
ON ERROR GOTO 


ON...GOSUB 
ON. ..GOTO 
OPEN... 
OPEN, rando 
Operators 
Operators, 
Operators, 
Operators, 
Operators, 
Operators, 
OR ae ew: 
OUT ... 


PEEK . . « 


PIP utility program 
PIP, CNV command . 
PIP, COP command 


PIP, DAT co 
PIP, DIR co 


PIP, LIS co 


PIP, SRT command 


POKE ... 
POS? ~cer ic. x 
Precedence, 
PRINT .. 


PRINT USING 


PRINT, disk 
Prompt stri 


PTD program 


PUT o@ ve.-¢ 


PIP, INI command . 


on 
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